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Introduction 
What DDGui is 


DDGut is designed to allow each platform supported by GLBasic to have a GUI system that looks, acts 
and used in the same way. 


DDGuiallows the creation of buttons, sliders, edit boxes, check and radio buttons in a window that can 
be moved 


What DDGui isn't 
DDGut isn't a fully fledged GUI system — there are many things that haven't been implemented within 


DDGui-— for example positioning is done relative to other other items, as opposed to positioning to X 
and Y coordinates 
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Features of DDGui 
DDGui has the following features : 


e Windows 
e Static text 


e Buttons 
e Sliders 
e Toolbars 


e Check boxes 
e Radio Buttons 
e List Box 

e Combo 

e File Dialog 

e Text Boxes 


e Tabs 
e Frames 
e Spacing 


There are also some helper functions : 


e Dialog Window 

e Colour Picker 

e Inserting and Deleting text 
e Retrieving text 

e Hiding and Showing 


Other areas : 


e User-defined routines 


Positioning 

Read-Only 
e Tooltips 
e Input 


Progress Bar 
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Using DDGui 


To start using DDGui in your programs, you need to add the DDGui. gbas file to your program. You 
can do this by adding the file from the Samples — Common to your project. 


The file will then be added to the sources list. Your project layout could then look like : 
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You could compile the project like this, but it certainly won't do much, so the first thing we need to do 
is create a window, using the following : 


DDgui_pushdialog(0, 0,100,100, FALSE) 


This creates a window 100 by 100 pixels in height, positioned at 0 pixels across and 0 pixels down 
from the top left corner of the screen. We make sure that the window is not centred to the middle of the 
screen 


To keep showing the window, we need to call the show window command ina loop, which in this case 
is DDgui_show. 


This command takes one parameter which determines whether all created windows are displayed, or 
just the last one. Like all graphics commands in GLBasic, SHOWSCREEN has to be called to swap 
screen buffers and update the display. 
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So, the routine will be : 


WHILE TRUE 
DDgui_show(FALSE) 
SHOWS CREEN 

WEND 


The full program looks like : 


DDgui_pushdialog(0, 0,100,100) 
WHILE TRUE 
DDgui_show (FALSE) 
SHOWS CREEN 
WEND 


The full code is : 


DDgui_pushdialog(0, 0,100,100) 
WHILE TRUE 
DDgui_show (FALSE) 
SHOWS CREEN 
WEND 


And the results look like : 
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As mentioned in the GLBasic Programmers Reference Guide, the fault font makes text hard to read, so 


its always a good idea to create a readable font at this point, and place it in the with the executable 
(non-Mac), or for the Mac, place in the Media directory and manually load the font. 
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Text Display 


From V9.054 all text display by default uses proportional text printing. This can be disabled (or re- 
enabled) by using DDgui_UpdateFont. 
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Windows Abilities 
Titles 


Windows can have titles, which can be set using DDgui_set, with anempty ID value : 


DDgui_set(”, TEXT , Title text’) 


Produces the following title : 


= 
@ TestDDGui 


Title text 


Allowing re-sizing 
By default, a DDgui window can't be re-sized by the user. This ability can be activated by calling 


DDgui_set("" , "SCALEABLE" , TRUE ) 


This produces a window with a “gripper” (blue chevrons) on the bottom right of the window, which 
allow the window to be changed horizontally and/or vertically : 


12 


Programmers Guide to using DDGui 


E 
@ TestDDGui 


Allowing movement 


You can allow the window to be moved by using : 


DDgui_set( ,» MOVEABLE’ , TRUE) 
Feedback 


You can get feedback about the re-sizing and movement status by using DDgui_get, which is 
discussed in the reference section. 


Multiple Windows 


Multiple windows can be created with widgets. However, only the last created one will receive user 
input. In addition, there is currently no way of selecting another window. 


ID's 


All widgets (except for windows) require a unique string ID — this enables widgets to be uniquely 
identified and manipulated. 
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To display static text, you would use : 
DDgui_widget(id$, text$ /, width%, height%/) 
with id$ being a unique identifier, and text$ is the text to be displayed. 


width% and height% are optional. If these are given, the the widget will be created with the 
horizontal size defined by width% and the vertical size by height%. 


If these values aren't given, the the widget with take the horizontal size of the text length and the font 
height. 


Static text looks like : 


r 
@ TestDDGui 


This is static text 
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Buttons 
Buttons allow the user to select an option, and are created with : 


DDgui_button(id$, text$, /, width%, height%]/) 


with id$ being a unique identifier, and text$ is the text to be displayed. 


width% and height% are optional. If these are given, the the widget will be created with the 
horizontal size defined by width% and the vertical size by height %. 


If these values aren't given, the the widget with take the horizontal size of the text length and the font 
height. 


A button has two graphic modes. One when the mouse pointer is over it, and one when it isn't : 


Mouse NOT over button Mouse OVER button 


r 
& TestDDGui 


rc 
@ TestDDGui 


This is text 


Buttons can also have sprites in them. This is done by setting text$ to “SPR_B” and appending the 
Sprite index to it 


With SPR_B, the sprite size (if width% and height% are 0) will be used to calculate the size of the 
button. 


In addition, a button can have a filled colour. This is done by setting text$ to “SPR_C” and appending 
an integer colour to it. The size of the button created is based on the 


width% and height% values — if either of these are 0, then the default width (or height) is 32 


SPR_C buttons, when pressed will open the Colour Dialog window. 
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This graphic shows a red graphic being displayed (using SPR_B), whilst the green button was created 
using SPR_C : 


DDgui 


DDgu1_button(''testl’,“SPR_BO” ,0,0) 0,0) 


“button("test2","SPR_C121712 
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Sliders 


No, this isn't to do with the American Sci-Fi program — sliders are a horizontal bar that the user can can 
to specify a value. 


Sliders can be created with : 
DDgui_slider(id$, value /,width%, height%/) 
with id$ being a unique identifier, and value is the default value to be used. 


width% and height% are optional. If these are given, the the widget will be created with the 
horizontal size defined by width% and the vertical size by height%. 


By default, the slider range is between 0.0 and 1.0, with a step value of 0.01 


The minimum range can be changed using DDgui_set and a MINVAL parameter, whilst the maximum 
value can be changed using DDgui_set and a MAXVAL parameter 


Note : 


e You need to make sure that the pointer position is always between the minimum and maximum 
range 


A slider looks like : 


r 
# TestDDGui le 
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Toolbars 
Toolbars allow quick creation of buttons with sprites in them, and are created using : 
DDgui_toolbar(id_buttons$[], id_sprites[]) 


The id$_buttons$[] array contains the list of ID's that will be used to detect button presses, while 
id_sprites[] array contain the sprite indexes of the sprites to be used. 


These sprites should be loaded before hand — if not, all you will see are small dots : 


(ec | 


ts 
® TestDDGui 


With sprites loaded, the list would look like : 


Note that these buttons are slightly different than sprites in normal buttons. The button with the mouse 
over it always has a blue border around it. 


Which button is pressed can be detected using DDgui_get. 
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Check Boxes 
Check boxes allow the user to activate or de-activate an option, and is created using : 
DDgui_checkbox(Cid$, text$, /, width%, hetght%/) 
with id$ being a unique identifier, and text$ is the text to be displayed. 


width% and height% are optional. If these are given, the the widget will be created with the 
horizontal size defined by width% and the vertical size by height%. 


If these values aren't given, the the widget with take the horizontal size of the text length and the font 
height. 


By default a check box is un-ticked. Acheck box can be pro grammatically activated or de-activated 
by using DDgui_set. The check box status can be read by using DDgui_get 


A check box looks like : 


This is a checkbox 
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Radio Buttons 


A radio button allows the user to select one ofa group of options. A radio button should be used when 
2 or more options are needed. 


A radio button is created by : 
DDgui_radio(id$, text /, width%/) 


with id$ being a unique identifier, and text$ is the text to be displayed. The text contains all the 
options to be displayed, with each separated by “|” 


width% is optional. Ifthis is given, the the widget will be created with the horizontal size defined by 
width%. 


Ifthis values isn't given, the the widget with take the horizontal size of the largest text length 
By default the first line will be checked. This can be changed using DDgui_set 
Which radio button is selected can be detected using DDgui_get 


A group of radio buttons look like : 


@ This is checkbox 1 
This is checkbox 2 
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List Box 
A list box allows the user to select text froma static, multiple line text box. 
A list box is created by : 
DDgui_list(Cid$, text$ /,width%, height%/) 


with id$ being a unique identifier, and text$ is the text to be displayed. The text contains all the 
options to be displayed, with each separated by “|” 


width% and height% are optional. If these are given, the the widget will be created with the 
horizontal size defined by width% and the vertical size by height%. 


If these values aren't given, the the widget with take the horizontal size of the text length and the font 
height. 


By default the first line will be checked. This can be changed using DDgui_set 
Which line is selected can be detected using DDgui_get 


A list box looks like : 


The vertical size of each line is controlled by the goDDguiMinContro1Dimension% global 
variable. 
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Combo Box 
A combo box is DDgui's equivalent of a drop-down box, and is called with: 
DDgui_combo(id$, text$ /, width%, height%/) 


id$ is the ID for the widget, text$ is the list of items that could be selected. Each item should be 
separated by a “|” 


width%, if present, sets the width of the drop-down button. If this value is not present, then the width 
will be set to the length of the largest item in the list. 


height %, if present, sets the height of the drop-down button. Ifthis value is not present, then the 
height will be height of the current font being used. 


For example using : 


DDgui_combo("test", "example|wibble wobble", 0,0) 


Produces : 


a 


' TestODGui =| x 


Example 


example example 


wibble wobble 


The default item displayed is the first item in the list 
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File Dialog 
A file dialog is a window that allows you to enter (or select) a file for loading or save. 
A file dialog is used by : 
result$ = DDgui_FileDialog$(open% /, f7/ter$/) 


open% denotes whether you have opened the dialog window for read (open% = TRUE) or writing 
(open% = FALSE) 


filter$ is an extension which filters any file list to those that have the given extension, if given. 
If filter$ is not present, then all files will be listed. 


Ifopen% = FALSE, then a given filename will have the extension stored in filter$ appended to it (if 
present). If filter$ is not present, then no extension will be added 


This function returns the filename selected or entered. 
Notes : 


e Ifthe file dialog is set for writing, then an empty file with the given filename will be created in 
the current working directory. 


A file dialog window looks like : 


Hedia 


noo 
smalfont .png 
TestDDGui .exe 


OK Cancel 
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File selection can also be done using DDgui_file : 
It's used by : 
DDgui_fileCid$, text$, filter$ /, width%, height%/) 


id$ is the widget ID, text$ is some text that will be displayed to the right of the button. 


filter$ is a file filter which will filter the file directory listing to the extension that is held in this 
parameter. 


width% and height%, if given, will set this widget to the given width and height. If width% is not 
present, then the font width (based on the length of text$) will be used. 


height%, if not present, will use the font height to calculate the height of the wid get 


The widget looks like : 


- 
# TestDDGui 


Window Name 


Htest 
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Text Boxes 


An text box allows the user to enter text. Escape characters are replaced by a yellow block, but in the 
case of a TAB key press it is replaced by a space. 


A text box is define by : 

DDgui_text(id$, text$ /,width%, height%/) 

with id$ being a unique identifier, and text$ is the text to be displayed. Text boxes are usually for 
single line entry although multiple lines can be used by either the user pressing RETURN, or by putting 


in the “\n” escape character before the new line, 


width% and height% are optional. If these are given, the the widget will be created with the 
horizontal size defined by width% and the vertical size by height%. 


If these values aren't given, the the widget with take the horizontal size of the text length and the font 
height. 


Additional (or new text) can be added using DDgui_set$ and retrieved by using DDgui_get$ 


A text box (with onscreen keyboard) looks like : 
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In GLBasic V9.052 onwards, there is a new text box which is designed to only take one line. With 
these text boxes, the TAB key moves the caret to the next single line entry box. 


These text boxes are defined by : 
DDgui_singletext(id$, text$ [,w7dth%=0] ) 


with id$ being a unique identifier, and text$ is the text to be displayed. Pressing RETURN moves to 
the next DDgui_singletext text box 


width% and height% are optional. If these are given, the the widget will be created with the 
horizontal size defined by width% and the vertical size by height%. 


Single text boxes look like : 
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Tabs 
Tabs allow DDGui widgets to be grouped together in their own window area. 
A tab is created by : 
DDgui_tab(id$, details$) 


id$ is the id text for the tab, and details$ contains a list of tab names and widgets that are in the tab. 
Multiple tabs are separated by a “|” character, so the format is : 


tab name, widgets list|tab name, widgets list etc. 
Which tab is selected can be read from DDgui_get. 


Tabs look like : 


Ez | 
% TestDDGui Se <=| 


(Group! Croup 2 


This is a checkbox 
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Frames 
Frames are used to group or detail items in a more aesthetically pleasing way. 
They are created using : 


DDgui_framestart(/7d$, caption$, width%/) 
DDgui_frameend() 


id$ is the id name you want to give the frame, caption$ is the title you want to give the frame. If no 
title is given then an unbroken rectangle is drawn. 


width% denotes the width of the frame. If this value isn't given then the width of the largest widget is 
used to calculate the width of the frame 


A frame looks like : 


Hello 


Frame example 
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Spacing 


As well as setting widgets to a fixed size, you can also introduce spaces by using the DDgui_space 
function : 


DDgui_spacer(/width%, hetght%/) 


If width% is given, then the next widget will attempt to be positioned after the given number of 
horizontal pixels. A large width% value will introduce vertical spacing 


A height% value usually has no affect on spacing. 
Some examples : 


DDgui_spacer(12,0) 


DDgui_spacer(24,0) 


Example 
Button 1 Button 2 


Example 


Button 1 Button 2 


Example 
Button 1 
Button 2 


DDgui_spacer cannot be added to a tab, as it has no ID. 
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Dialog Window 


A general purpose dialog window (which allows the user to select either one or one of two buttons) can 
be created to display a message or request that the user respond to a query. 


A dialog window can be created with : 
result% = DDgui_msg(text$,yesNno% /,t7t/e$/) 


text$ is the text to be displayed. The size of the window is limited, so this text should be kept to a 
minimum 


yesNo% indicates whether there should be a simple OK button (yesNo% = FALSE) or whether there 
should be two buttons — one with “Yes” and one with “No” (yesNo% = TRUE) 


title$, if present, is the title of the window. If its not present, then the default of “Information” is used. 
This function returns TRUE if the YES or OK button is selected, and FALSE if the NO button is 
selected. 


Window with 


yesNo% = FALSE yesNo% = TRUE 


r ; r 
® TestDDGui ® TestDDGui 


Information 
This is a 
message box 


Example 
This is a 
message box 


OK Yes No 
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Colour Picker 


The colour picker allows the user to choose a colour by modifying the individual components (red, 
green and blue). HSV and HSL selection would need to be implemented by the user. 


The colour picker is called with : 
colour% = DDgui_colorDlg(colour%) 


colour% is the initial colour that will initialise the colour picker. This function returns the colour 
selected by the user. 


Ifthe user has cancelled the window, then the return colour will be the same as that which initialised 
the function. 


The colour picker looks like : 


Color Picker " 

{) BS! 

é} 
di 
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Inserting and Deleting Text 
List Boxes 
With list boxes, there are two functions used to add and remove lines of text. These are : 
DDgui_insertitem%: id$, text$, before_index% 


id$ is the ID of the list box, text$ is the text to be added, and before_index% is the position that you 
want to insert the text. 


If before_index % >=0 then the text will be inserted at that line position — don’t forget that line 
numbering starts at 0! 


If before_index % <0 then the text will be appended to the end of the list 
Removing lines from list boxes is done with : 
DDgui_deleteitem%: id$, index% 


71 d$ is the ID of the list box, and index% is the line that you want to delete. If this value is < 0 then 
everything will be deleted. 


Edit Boxes 


With edit boxes, you would need to use DDgui_get to get the text from the edit box, split into lines, 
delete or append as appropriate and then put the new text back in using DDgui_set 
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Retrieving Text 


Text is retrieved using DDgui_get$ with the id of the widget you want to retrieve the data from, and the 
parameter of “TEXT”, for example : 


DEBUG DDgui_get$(“resu lt”, ’TEXT”) 


With most widgets, the data returned is that same as that entered. However, with list boxes, the data 
returned is slightly different, in that each line is separated witha “|”. 


For example : 


DDgui_list("test","a[B|C", a 100) 
DEBUG DDgui_ get$("test", "TEXT") 


Produces : 


a|B|C 
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Hiding and Showing 


Widgets can be hidden and shown using : 


DDgui_hide(id$ /, hA7de%/) 


id$ is the ID of the widget, and hide% shows or hides a widget. If hide % = TRUE then the wid get is 


hidden. If hide % = FALSE then the widget is shown. 


If a widget is hidden then all other widgets next to it will be re-positioned : 


With both buttons shown 


Example 


Button 1 Button 2 
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With Button 1 hidden 
[ & TestoDGui ° Sex 


Example 
Button 2 
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Focusing 


New in GLBasic 9.054 is the ability to move backwards or forwards through either a text or single text 
widget. This is done by using : 


DDgui_advancefocus( /d7rection% = -1/) 


This moves the cursor to either the next text or single text widget (direction% > 0) or the previous 
widget (direction% < 0) 


Ddgui_setfocus (id$) 


This moves the cursor to the widget defined by id$. Again, this only works with text or single text 
widgets. 
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User-Defined Routines 


DDGuiallows a limited amount of customisation, enabling the look of a window to be changed. These 
are set by using no id parameter in DDgui_set command : 


DDgui_set("", "COL_BRIGHT" ,RGB(255,0,0)) 


This sets the background colour of the window, and the top part of things like buttons 


DDgui_set("", "COL_NORM",RGB(255,0,0)) 


This sets the title colour of the window and the main part of, say, a button when there is no mouse 
pointer over it 


r 
@ TestDDGui 
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DDgui_set("", "COL_HOVER_BRIGHT" ,RGB(255,0,0)) 


This sets the top part of, say, a button graphic when the mouse is over it 


DDgui_set("", "COL_HOVER_NORM",RGB(255,0,0)) 


This sets the colour of the main body of, say, a button, when a mouse pointer is Over it 


FUNCTION DDgui_backrect: x%,y%,dx%,dy%, col% 


This function allows you to overwrite the colour of the border of the window, the title bar and the main 
area of widgets like buttons. 
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For example, using the following : 


FUNCTION DDgui_backrect: x%,y%,dx%,dy%, col% 
DRAWRECT x%, y%, dx%, dy%,RGB (0, 255, 0) 
ENDFUNCT ION 


produces : 


- 
® TestDDGui 


FUNCTION DDgui_backgnd%: col1%, col2%, x%, y%, dx%, dy% 


This allows you to override the background colour of windows and widgets 


This example : 
PUNT ION cee backgnd%: coll%, col2%, x%, y%, dx%, dy% 


RECT x56, Y%, AX%, dy% , RGB CO, 255,0) 
ENDFUNCTION. 


Would produce a green background : 
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DDgui_userdefined(id$, user_type$, width%, height%) 
DDgui_draw_user%: BYREF id$, width%, height%, ytop% 
DDgui_hand1le_user%:BYREF id$,mx%,my%,b1%,b2% 


These three need to be used together, and allow user-defined widgets to be created and processed. 


DDgui_userdefined creates a user-defined widget. id$ gives the widget an ID, user_type$ defines a 
type for the widget, and width% and height% is the width and height of the widget. 


DDgui_draw_user draws your user-defined widget. As the routine will let your widget have focus, you 
perform all drawing from 0,0 coordinates. 


id$ is the ID of the widget, width% and height% are the width and height of the widget and 
ytop% is the vertical position of the widget (which is usually 0) 


DDgui_handle_user handles all mouse input for your widget. id$ is the ID of the widget, mx% and 
my % are the mouse X and Y coordinates, relative to the top-left corner of the widget. 


It should be noted that these coordinates can be negative or can be updated outside the window area. 
b1% and b2% will be TRUE if the left or right mouse button within the widget area. 


Code for user-defined wid get could look like : 


DDgui_userdefined( test”, moo”, 100,100) 


FUNCTION DDgui_draw_user%: BYREF id$, width%, height%, ytop% 
DDgui_backgnd(RGB(0,0,0), RGB(255,0,255), 0,0,width, height) 
ENDFUNCT ION 


FUNCTION DDgui_handle_user%:BYREF id$,mx%,my%,b1%,b2% 
DEBUG id$+" "+mx%+" “+my%-" "+b1%+"\n" 
IF b1% 
DEBUG "Button pressed\n" 
KEYWAIT 
ENDIF 
ENDFUNCT ION 
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which produces : 


With the text “Button pressed” displayed in the Output area in the editor (see GLBasic User Guide for 
more information) when the user presses the left mouse button within the purple area. 


In addition, there are several GLOBAL variables than can be used to adjust how DDGui works : 
DDGUI_AUTO_INPUT_DLG 


If set to TRUE, then a keyboard window will be created at the bottom of the screen when the user clicks 
ona text box. This value is set to TRUE for smartphones and some other platforms. 


DDGUI_IN_INPUT_DLG 

Prevents keyboard window being continually if text entry area is repeatedly clicked. 
gDDguiCaretcolour% 

This sets the default colour of the caret. The default value is 0 (black) 
gDDguiMinControlDimension% 


This sets the minimum height of the caption bar as well as the height of each line in a listbox. The 
default value is 16 
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Positioning 


Until standard GUI systems, wid get positioning is based on whether the current defined widget will fit 
horizontally — effectively its all based on the width of the previous widget. 


If the current widget wont fit horizontally, it will be moved vertically below the last widget. 


If it wont fit below the last widget, then a scroll bar on the window will be created and the widget will 
be added in the newly available area of the window. 
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Read-Only 
Buttons, check boxes and various other widgets can be made read-only or read and writeable. 


Read-only mode does not allow the user to change anything about the widget, whilst read and writeable 
will allow the user to change, select or edit the wid get. 


Read-only can be enabled or disabled by using DDgui_ set with the “READONLY” parameter. 


Anexample for this would be : 


pogui Putten’, I”, "moo + 100" 208 
DDgui_button("t2","moo", 100,50 
DDgui_set("t1", "READONLY", TRUE) 


tc 


Which makes the “tl” button read-only, which means that if the user moves the mouse over or presses 
the first button, nothing will happen. 


A widget's colour wont change if the mouse is moved over a READ-ONLY wid get. 


To disable read-only mode, the “READONLY” parameter should be set to FALSE : 


DDgui_set("t1", "READONLY", FALSE ) 
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Tool-Tips 
TooLtips allows the user to be given succinct information when the user moves over a widget. 
Atooltip is created using : 
DDgui_set(id$, “TOOLTIP”, text$) 


id$ is the ID of the widget that you want to create a tooltip for. text$ is tooltip text that you want to 
be displayed. 


Anexample of using this is : 


DDgui_set("t1", "TIPTEXT','" This is a button that has 'moo' in it") 


Which looks like : 


The tool- tip is displayed until the user moves the mouse away from the widget 
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Input 
An input window (with an on-screen keyboard), can be created to allow easy user-input. It should only 
be used when all windows have been closed (or haven't been created yet), otherwise you may get a run- 
time error. 
The input window can be created with : 


result$ = DDgui_input$(text$, specialChars%) 


text$ is the initial text that will populate the window. specialChars %, if set to TRUE will enable 
extended characters to be used. If this variable is set to FALSE, then these wont be available. 


This routine returns all characters entered by the user. If the user has pressed the CANCEL button then 
the text returned will be the same as that passed originally to this function. 


An input window looks like : 


Window without special chars Window with special chars. 
available 


= 
% TestDDGui 


ABC 


ABC abc 129 \fiill 


i) Gia) retin mein! nid 
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Progress Bar 


A progress bar can be activated to show the user that your program hasn't crashed during long 
operations. 


It can be activated and de-activated with : 
DDgui_waitCursor%: bwait% /, 7SpriteId%/] 


bWait% denotes whether to activate (bWait% = TRUE) or de-activate (bWait% = FALSE) the 
process bar. 


iSpriteId%, if present, denotes which sprite index to use to make a copy of the background. If this 
value is < 0, then a free index will found in order to make the copy. 


This command should be used after the DDgui_show command. Using it before DDgui_show will 
either produce a nasty flickering effect or a blank background. 


You should also note that your loop should NOT call SHOWSCREEN as that will be done in this 
function. 


The progress bar looks like : 
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Error Messages 
In debug mode, you could find that you may come across one or more of these errors : 
DDgui_get: Widget not found 
This occurs when a widget ID has not be found, possibly due to being misspelt. 
DDgui_set dialog ("""') property: x is unknown 
This error occurs when the property “x” is unknown, possibly because it has been misspelt. 
Must overwrite: DDgui_handle_user 


When creating a custom widget, both DDgui_draw_user% and DDgui_handle_user functions need to 
be created 
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DDgui_set and DDgui_get/DDgui_get$ values 
DDgui_set values available : 
at pre Nene TRUE - Enable window to be moved (and create title bar) 

FALSE — Disable window movement (and remove title bar) 
pid “TEXT” If this is not an empty string, then a title bar will be created 
id$ Sets widget to new text 
aie “SCALEABLE” TRUE -— Allows window to be resized 

FALSE — Disables window re-sizing 
Sets horizontal position of window 
Sets vertical position of window 


or “WIDTH” Sets width of window 
id$ Sets width of widget 

pe “HEIGHT” Sets height of window 
id Sets height of window 


“ALIGN” Aligns the widget into the available space : 
-1 :Align left 
0 : Centre 
1 : Align right 


ids “TOOLTIP” Set tool-tip text for widget 
—— “SELECT” Select which radio button, checkbox or line to be activated 


a “INKEY” Adds character to widget when it is updated (like mouse 
moves over it) 


“MIN VAL” Sets minimum value for slider 
“MAX VAL” Sets maximum value for slider 
“SREP” Sets step value for slider 
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DDgui_get/DDgui_get$ values available : 


pe “MOVEABLE” 0 if window can't be moved 
Any other value if it can 


“SCALABLE” 0 if window can't be resized 
Any other value if it can 


Pa Horizontal position of window 
a “YPOS” Vertical position of window 


ne? “WIDTH” Width of window 

id$ Width of widget 

a “HEIGHT” Height of window 

; Height of window 

i 
i 


id$ 
d$ “HOVER” FALSE if mouse is not over widget 
TRUE if the mouse is over the widget 
d$ “CLICKED” TRUE if user clicked over widget 
FALSE if user clicked over widget 
id$ 
id$ 


“READONLY” 0 if widget is not read-only 
Any other value if it is 


i “ALIGN” Alignment of widget 
-1 : Align left 
0 : Centre 
1 : Align right 
“TOOLTIP” Current tool-tip text for widget 
“TEXT” Window title 
id$ Text from widget 
id$ “SELECT” Which item (or line) has been selected. Only useful for widgets like 
radio buttons, check boxes etc. 


“COUNT” How many lines there are in a list box 
“SELSTART” 


id$ Character position where highlighting starts in text box. 
If < 0, then no highlighting is taking place 


id$ “SELEND” Character position where highlighting ends in text box. 
If < 0, then no highlighting is taking place 
If this value is the same as that returned by “SELSTART”, then no 
highlighting is taking place 
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Part 2 


Function List 
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DDgui_pushdialog: x%, y%, width%, height% 
[, center_to_screen% = FALSE] 


Creates a DDgui window 

Example : 
DDgui_pushdialog(0,0,100, 100, TRUE) 
Result : 


This creates a window and centres it to the screen 
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DDgui_popdialog() 
Closes a DDGui window 
Example : 
DDgui_popdialog() 
Result : 
This closes a DDGui window 
DDgui_set values available : 
None 
DDgui_get/DDgui_get$ values available : 


None 
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DDgui_widget%: id$, caption$ 
[, width%=0, hetght%=0] 


Creates a widget 

Example : 

DDgui_widget(“example”,” This is a widget”) 
Result : 


This creates a border- less, non-interactive text 
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DDgui_button: id$, caption$, 
[width%=0, hetght%=0] 


Creates a button 
Example : 


DDgui_button(C“buttonl”,” Press Me”) 
DDgui_button(C“button2”,”SPR_BO” ,64,64) 


Result : 


This function creates a button with text, a button witha sprite ora filled button, which, when pressed, 
will open the colour dialog window. 
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DDgui_slider: id$, value 
[, width%=100, height%=16] 


Create a slider 

Example : 
DDgui_sliderC“slider”,0.5,100, 20) 
Result : 


This will create a slider 100 pixels wide, with the slider graphic being in the middle. 
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DDgui_toolbar: id_buttons$[], id_sprites[] 
Create a toolbar 


Example : 


LOCAL id$[]; DIMDATA id$[],"test1", "test2" 
LOCAL sprites[]; DIMDATA sprites[],0,1 
DDgui_toolbar(id$[],sprites[]) 


Result : 


This creates a list of buttons in one go — saves having to call DDgui_button commands multiple times. 
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DDgui_checkbox: id$, caption$ 
[, width%=0, hetght%=0] 


Create a check box 

Example : 

DDgui_checkbox(C"test", "This is an example") 
Result : 


This creates a check box, which is an item that has two states : selected or not selected. 
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DDgui_radio: id$, texts$ /, width%=0] 
Create a selection where only one can be selected 
Example : 


DDgui_radio(C“selection”, Option 1|Option 2|Option 3”) 


This command creates a group of options, where only one can be selected. 
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DDgui_file: id$, caption$, filter$ 
[, width%=0, height%=0] 


Creates a file dialog button 

Example : 

DDgui_fileC"open", "Select A File","*.*") 
Result : 


This command opens the file requester window (Windows) or calls the INPUT command (Other 
platforms) when this button is clicked. 


See GLBasic Programmers Reference Guide for more details on the File Requester and INPUT 
commands, but be away that the File Requester will crash on Windows 7 x64 in Debug mode. 
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DDgui_combo: id$, texts$ 
[, width%=0, hetght%=0] 


Display a multiple selection list 

Example : 

DDgui_comboC"entry", "Level 1|Level 2|Level 3") 
Result : 


Analternative to list boxes, this allows selection of one of a number of items, when the button is 
pressed 
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DDgui_list: id$, texts$ /, width%=0, height%=0/ 
Display a list of items 
Example : 
DDgui_listC"entry","Level 1|Level 2|Level 3") 


Result : 


Display a list of items, of which one can be selected. The main difference between these is that the list 
is displayed without the need for the user to click on the selection button. 
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DDgui_text: id$, text$ /, width%=0, heitght%=0] 
Create a text entry widget 
Example : 
DDgui_text("name", "Example Name", 140) 


Result : 


This widget creates an area where the user can enter text using either the keyboard or an on-screen 
entry system. 


Pressing RETURN will cause the caret to move to the next line, possibly causing the previous text to 
scroll up. 


Pressing the TAB key will generate an space. HOME and END will move the caret to the beginning or 
end of the current line, whilst the cursor keys will move the caret around one character at a time. 


There is no limit to the amount of text that the user can enter. 
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DDgui_singletext: id$, text$ /,width%=0/ 
Creates a single line text entry widget 
Example : 
DDgui_singletext(“oneline”, ’example”) 
Result : 
This function creates a single line text entry widget. With these, pressing TAB will move the caret to 
the next text or single text entry widget and SHIFT+TAB will move the caret to the previous text or 


single text entry widget. The next or previous widget being defined by the creation order. 


Currently HOME and END have no function 
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DDgui_tab: id$, captions$ 
Create a tab list 


Example : 


DDgui_tab("tab","File,name|Options,selection") 
DDgui_textC"name", "Input" ,100) 
DDgui_text("Sselection","Output" ,100) 


Result : 
This function allows groups of widgets to be grouped to a related tab, allowing easier viewing. 


This command should be used before any other widgets are created, otherwise the display order will be 
different to what it should be. 


Widgets should be created in the order that that are detailed in this command. 
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vu 


DDgui_framestart: /7d$="", caption$="", width%=0] 
Create a frame 
Example : 
DDgui_framestart("", "Details",100) 
DDgui_textC"input", "TEXT" ,90) 
DDgui_frameend(Q) 
Result : 


This function allows widgets to be surrounded by a box. 


DDgui_framestart() should always have a corresponding DDgui_frameend() call. If there 
isn't one, graphical anomalies (like duplicate widgets) will be introduced. 
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DDgui_frameend() 

Finishes a DD gui_framestart() call 

Example : 

DDgui_framestart("", "Details",100) 
DDgui_textC"input", "TEXT" ,90) 

DDgui_frameend() 


Result : 
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This command finishes the nearest DD gui_framestart() call, and is always needed. 
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DDgui_msg%: text$, yes_no% 
[, captton$="Informatiton"] 


Display text 
Example : 


IF DDgui_msg("Are you sure that you want to exit ?", _ 
TRUE, "Want To Exit ?") 
END 
ENDIF 


Result : 


This function allows a brief message to be displayed, with which the user has to press the OK button, 
ora YES or NO button 
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DDgui_getitemtext$: id$, index% 
Get text froma list-box or combo box 
Example : 


DDgui_listC"entry","Level 1|Level 2|Level 3") 
DDgui_comboC"entry2","Level 1|Level 2|Level 3") 


DEBUG DDgui_getitemtext$(C"entry",2)+"\n" 
DEBUG DDgui_getitemtext$(C"entry2",1)+"\n" 


Result : 


This command allows entry fora given line to be read 
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DDgui_insertitem%: id$, text$, before_index% 
Add text to a list-box or combo box 
Example : 


DDgui_listC"entry","Level 1|Level 2|Level 3") 
DDgui_comboC"entry2","Level 1|Level 2|Level 3") 


DDgui_insertitem("entry", "Text1", 2) 
DDgui_insertitemC"entry2","Text2",1) 


Result : 


This command allows text to be inserted into a list-box or combo selection at a given position. 
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DDgui_deleteitem%: id$, index% 
Delete a line froma list-box or combo selection 


Example : 


DDgui_listC"entry","Level 1|Level 2|Level 3") 
DDgui_comboC"entry2","Level 1|Level 2|Level 3") 


DDgui_deleteitemC"entry", 2) 
DDgui_deleteitemC"entry2",1) 


Result : 


This function allows a line (or the complete list) to be deleted from a list-box or combo widget 
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DDgui_input$: text$ /, bSpecitalChars%=TRUE]/ 
Allows text entry 
Example : 
DEBUG "Result : "+DDgui_input$(C"text" , FALSE) 
Result : 


This command allows text entry via an external keyboard or the on-screen keyboard, which is 
automatically displayed. 


Pressing the TAB key introduces a space 
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DDgui_FileDialog$: boOpen% /, f7/terstr$="*, *"] 
Opens a file dialog window 
Example : 
DEBUG "Selected : "+DDgui_FileDialog$(TRUE,"*.EXE") 
Result : 


This function opens a file dialog window, in which the list of files ina given directory are filtered 
according to the contents of filterstr$. 
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You can move down a directory by pressing on “..” and move up by clicking ona directory name. 
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DDgui_WaitCursor%: bwait* /, 7SpriteId% = -1/] 
Create a progress bar 
Example : 


WHILE TRUE 
DDgui_show(FALSE) 
DDgui_waitCursor (TRUE) 

WEND 


Result : 


This command creates (and shows) an animated progress bar. SHOWSCREEN should NOT be used 
before or after this command as it will generate a flickering display 
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DDgui_ColorD1lg%: color% 
Create a colour picker window 
Example : 
DEBUG "Selected : "+DDgui_ColorDlg(RGB(255,0,0)) 


Result : 


This function allows the user to select a colour by tweaking a passed colour, and changing its red, 
green, blue and brightness levels 
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DDgui_CenterDialog% 
Centres a window 


Example : 


DDgui_pushdialog(0, 20, 250,100) 
DDgui_CenterDialog() 


Result : 


This command centres a window to the current screen resolution. 
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DDgui_get$: id$, name$ 
Get data from a widget as a string 


Example : 


DDgui_checkbox("test","This is an example") 
DEBUG "Text : "+DDgui_get$C"test", "“TEXT") 


Result : 


This example retrieves specified data froma widget as a string. The type of information received is 
defined by name$ 
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DDgui_get: id$, name$ 
Get data from a widget as a floating-point value 


Example : 


DDgui_sliderC"test",0.5,100) 
DEBUG "Slider value : "+DDgui_getC("test", "TEXT") 


Result : 


This example retrieves specified data froma widget as a floating-point value. The type of information 
received is defined by name$ 
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DDgui_set: id$, name$, val$ 
Set a value in a widget (or window) 
Example : 
DDgui_set("", "TEXT", "Window Name") 
Result : 


This sets widget (or window) data to a specified value. What the value means is decided by the 
contents of name$ 
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DDgui_UpdateFont: bwantKerning% 
[, 1P71xelsSpaceBetweenLettersiIfkerning%=2] 


Enable or disabling proportional fonts 

Example : 

DDgui_UpdateFont (TRUE) 

Result : 

This command enables or disables proportion fonts. These type of fonts look nicer, but as each 
character can take up a different amount of space, aligning words to a specific position could be a 


problem. 


In V9.052 onwards, the second parameter is not used and has been left in to remain compatible with 
previous versions of Ddgul. 
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DDgui_show: only_show_current% 
Show DDGui window and contents 
Example : 
DDgui_show(FALSE) 
Result : 


This command can either show all DDgui windows, or the just the one that was last created. 


79 


Programmers Guide to using DDGui 


DDgui_resizedialog%: x%,y% 
[,width%=0, hetght%=0] 


Resize a window 

Example : 
DDgui_resizedialog(0,0,40,40) 
Result : 


This command repositions and resizes a window to the specified coordinates and size. All widgets 
within the window will be re-positioned if needed. 
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DDgui_hide%: id$ /, bHTde%’=TRUE] 
Show or hide a widget 
Example : 


DDgui_sliderC"test",0.5,100) 
DDgui_hideC"test" , TRUE) 


Result : 


This function hides or shows a widget. 
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DDgui_userdefined: id$, user_type$, width%, 
height% 


Create a user-defined widget 

Example : 
DDgui_userdefinedC"test", "MOO", 100,100) 
Result : 


Creates a user-defined widget, which can be used to do something not support by DDGui 
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DDgui_spacer: /width%=10000, height%=0] 
Add space after a widget 
Example : 
DDgui_spacer(5000) 
Result : 


Adds spaces after a widget. It has no effect if no widgets have been created. 
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DDgui_advancefocus%: /d7rection% = 1] 
Move to the next or previous text or single text widget 
Example : 
Ddgui_advancefocus() 
Result : 


Move the cursor to the next text or single text widget 
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DDgui_setfocus%: id$ 
Set caret to a text or single text widget 
Example : 

DDgui_setfocus (“entry”) 
Result : 


Set the caret on the text or single text widget 
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Part 3 


Internationalisation 


Programmers Guide to using DDGui 
Introduction 


If you are displaying text, it would be good if you design your program so that all text can be 
internationalised. 


This means that instead of using text that can't be changed to accommodate other languages, you design 
your program to use tokens, which will then display text based on the users language settings. 


Anexample use could be something like : 
DDgui_widget(“hello”, language$(“{{hello}}”),0,0) 


with the function language$ taking the token string “‘{{hello}}” and converting it to the word “hello” in 
English, French, German or any other language. 


Thus, I present the following internationalisation routine. It was converted from another BASIC 
language, and is designed to convert tokens to text. 


Additional language files would go in Media/Language/x/LANGUAGE.INI, where “x” is the 
LOCALE string (returned from PLATFORMINFO(“LOCALE”) 


REQUIRE “defaul tLanguage .c" 
INLINE 
typedef int size_t; 


extern char *defaultLanguage[]; 
extern "C" size_t strlen(const char *s); 


namespace __GLBASIC__ { 
ENDINLINE 


CONSTANT LANGUAGE_ACTIVE% = 1 


TYPE TLocalisation 
flags% 
languageDe f$ 
languagever$ 
languageAuth$ 
map AS TMap 


SECTION_NAME$ = "LanguageDefinition" 


FUNCTION Initialise%:flags%=0 
IF self.map.InitialiseQO 
SPUN carla ra 
self. languageDe fF$ 
self. languagever$= 
self. languageAuth$="" 
RETURN TRUE 


wo 


mwa 


ELSE 
RETURN FALSE 
ENDIF 
ENDFUNCT ION 


FUNCTION Destroy%: 
self.map.Destroy() 
ENDFUNCT ION 


FUNCTION SetLanguageDetails%: langDef$, langver$, langAuth$ 
self. languageDef$=1 angDef$ 
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self. languagever$=|angver$ 
self. languageAuth $= langAuth$ 
ENDFUNCT ION 


FUNCTION AddLanguage%: key$ ,value$ 
self.map .Add (key$,value$) 
ENDFUNCT ION 


FUNCTION LoadLanguage%:override$="" 
LOCAL Paras languages temps 

LOCAL loop% 

LOCAL split$[] 


path$="Media/Language/" 
IF override$="" 
Janguage $=PLATFORMINFO$("LOCALE") 
ELSE 
language $=overr ide$ 
ENDIF 


path$=path $+ language$+"/LANGUAGE. INI" 


IF DOESFILEEXIST(path$) 
INIOPEN path$ 


self. languageDe f$=INIGET$(sel f. SECTION_NAME$, "LanguageID") 
self. languageVver$=INIGET $(sel f. SECTION_NAME $ Seer ittieies 
self. languageAuth$=INIGETS$ (self .SECTION_NAME$ ,""LanguageAuthor" 


1o00p%=0 
temp$=INIGET $(sel f. SECTION_NAME$, loop%,""") 
DEBUG "T:"+temp$+"\n" 
KEYWAIT 
WHILE temp$<>"" 
DIM split$[0] 
IF SPLITSTR(temp$ ,split$[],",")>=2 
self.map.Ad (sp1it$[0] ,split$[1]) 
ENDIF 


INC loop% 
temp$=INIGET $(sel f. SECTION_NAME$, loop%,""") 


WEND 
INIOPEN "" 
RETURN TRUE 
ELSE 
RETURN FALSE 
ENDIF 
ENDFUNCT ION 


FUNCTION GetLanguageID$: 
RETURN self. languageDef$ 
ENDFUNCT ION 


FUNCTION GetLanguageversion$: 
RETURN self. languagever$ 
ENDFUNCT ION 


FUNCTION GetLanguageAuthor$: 
RETURN self. languageAuth$ 
ENDFUNCT ION 


FUNCTION LocaliseText$:string$ 
LOCAL loop% 

LOCAL one$,tmpPrevChar$, tmpText$ 
LOCAL tmpCount% 

LOCAL tmpOpening%[] 


IF bAND(self.flags% ,_LANGUAGE_ACTIVE% 
DIM tmpOpening% [LEN (string$)/2] 
FOR loop%=0 TO BOUNDS(tmpOpening%[],0)-1; | tmpOpening%[1o0p%]=0; NEXT 


1oop%=0 
tmpPrevchar$= 
tmpCcount%=0 


we 


WHILE loop%<LEN (string$) 
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one $=MID$(string$, |oo0p%, L) 
SELECT one$ 
CASE a // Start of token 
IF tmpPrevchar$ = one$ 
tmpOpening%[tmpcount%] = loop%+1 
INC tmpCount% 


tmpPrevchar$="" 
ELSE 
tmp PrevChar$=one$ 
ENDIF 
CASE "yr // End of token 


IF tmpPrevchar$ = one$ 
DEC tmpCount% 


tmpText$=MID$(string$, tmpOpening% [tmpCcount%] , loop%-tmpOpeni ng%[ tmpCount%] -1) 

SELECT UCASE$(tmpText$) 
CASE DOCS 

tmpText$=PLATFORMINFO$ ("DOCUMENTS") 

CASE "WHAT" 

tmpText$=PLATFORMINFO$ ("""') 

CASE "ID" 

tmpText$=PLATFORMINFO$ ("ID") 

CASE "DEVICE" 

tmpText$=PLATFORMINFO$ ("DEVICE") 

CASE "COMPILED" 


tmpText$=PLATFORMINFO$ ("COMPILED") 
DEFAULT 
DEBUG "Tmp : "+tmpText$+"\n" 
tmpText$ = self.LocaliseText$(self.map.Getvalue$(tmpText$)) 
ENDSELECT 
str ing$=MID$ (string$,0,tmpOpeni ng%[tmpCount%] -2)+tmpText$+mMID$(string$ , loop%+1) 


: INC 1o00p%, LEN(tmpText$) - (1 o0p%+3- 
tmpOpeni ng%[ tmpcount%] ) 


we 


tmpPrevchar$= 


ELSE 
tmpPrevchar$=one$ 
ENDIF 
DEFAULT 
tmpPrevchar$="" 
ENDSELECT 
INC loop% 
WEND 
ENDIF 
RETURN string$ 
ENDFUNCT ION 
ENDTY PE 
FUNCTION Localise_TextHelper%:BYREF index%,BYREF token$,BYREF value$ 
token$="" 
value$="" 


INLINE 
i (CdefaultLanguage[index]) && CstrlenCdefau1ltLanguage[ index ])>0) ) 


token_Str=DGStr (defaul tlanguage[Cint) index]); 


INC (index) ; 
if ((defau ltLanguage[Cint) index]) && (strlen(defaul tLanguage [i ndex] )>0)) 
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Value_Str=DGStr (defaul tlanguage[Cint) index]); 


INC (index) ; 


; return (DGNat) TRUE; 


return (DGNat) FALSE; 
ENDINLINE 
ENDFUNCT ION 


//\| Use default text if locale isn't available _| ' 
FUNCTION Localise_UseDefau1t%:localise AS TLocalisation 
LOCAL resul1t%, index%, token$,value$ 


IF localise. LoadLanguage (Q) =FALSE 
index%=0 
resul t%=Localise_TextHel per(i ndex%, token$,value$) 
WHILE resu1t%=TRUE 
local ise .AddLanguage(token$,value$) 
resul t%=Localise_TextHel per(index%, token$,value$) 
WEND 


localise.SetLanguageDetailsC"English (British)","1.0.0.0","Default Language") 
RETURN FALSE 

ELSE 
RETURN TRUE 

ENDIF 


ENDFUNCT ION 


Anexample of use would be : 
LOCAL localise as 1localise 


IF localise. Initialise (LANGUAGE_ACTIVE%) =FALSE 
DEBUG "Unable to initialise TLocalisation" 
RETURN FALSE 

ENDIF 


local ise_UseDefau It (locali se) 
DEBUG “Result : “+localise.LocaliseText$(‘{ {hel 1lo}}”) 


As it stands, the routine could not be compiled as a default language string is need. 


First, you need the Tmap routine. This is covered in slightly more detail in the GLBasic Programmers 
Reference Guide, but is included here for completeness : 


// Project: ddd 
// Start: Tuesday, October 05, 2010 
// IDE Version: 8.120 


TYPE tKeyvalue 


oe 
value$ 
ENDTY PE 


TYPE TMap 
list[] AS tkeywalue 


//\ Initialise type 

//\param None 

//\return TRUE 

FUNCTION Initialise%: 
DIM self.list[0] 
RETURN TRUE 

ENDFUNCT ION 


//\ Destroy type 
//\param None 
//\return TRUE 
FUNCTION Destroy%: 
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DIM selft.11St[O 
RETURN TRUE 
ENDFUNCT ION 


//\ Add a key and value to the internal array, and sort array afterwards 
//\param key$ - Key to add 

//\param value$ - Value of key 

//\return TRUE if the key and value has been added, FALSE otherwise 
FUNCTION Add%:key$, value$ 

LOCAL temp AS tKeyValue 


IF self. search(key$)<0 
// Found 
ect key Ses 
temp. value$=value$ 
DIMPUSH self.list[] ,temp 
SORTARRAY self. list[],0 
RETURN TRUE 

ENDIF 


RETURN FALSE 
ENDFUNCT ION 


FUNCTION search%: key$ 
LOCAL up%, down% ,mid% 


up%=0 : 
down%=BOUNDS (self.1]ist[] ,0)-1 
WHILE up%<down% 
mid%= (up%t+down%) /2 
IF self. list [mid%].key$>key$ 
down%=MAx (mi d%- 1, up%) 
ELSEIF self. list[mid%] .key$<key$ 
up%=MINCdown%,mid%+1) 
ELSE 
RETURN mid% // Found 
ENDIF 
WEND 


IF BOUNDS(self.1list[],0)>0 AND self. list [up%] .key$=key$ 
RETURN up% 
ELSE 
RETURN -1 
ENDIF 
ENDFUNCT ION 


FUNCTION Debug%: 
LOCAL loop AS tKeyvalue 


FOREACH loop IN self.list[] 
DEBUG "Key : "+loop.key$+" Value : "+loop.value$+"\n" 
NEXT 
DEBUG "Number of keys and values : "+BOUNDS(self. list[],0)+"\n" 
ENDFUNCT ION 


FUNCTION GetValue$:key$, notFound$="NOT_FOUND" 
LOCAL index% 


index%=sel f. search(key$) 
IF index%>=0 
RETURN self. listLindex%] .value$ 
ELSE 
RETURN notFound$ 
ENDIF 
ENDFUNCT ION 


FUNCTION DeleteKey%:key$ 
LOCAL index% 


index%=self. search(key$) 

IF index%>=0 
DIMDEL self. list[], index% 
RETURN TRUE 

ELSE 
RETURN FALSE 

ENDIF 

ENDFUNCT ION 
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FUNCTION Count%: 
RETURN BOUNDS(Self. list[], 0) 
ENDFUNCT ION 
ENDTY PE 


Usually, the text would be added during compilation. Its a simple procedure to add to your programs — 
save the following as a .c file into the same place as your project (calling it defaultLanguage.c) : 


char *defaultLanguagel[ J={ 


"startgame", "Start Game", 
"continuegame", "Continue Game", 
"options", "Options", 
"instructions", "Instructions", 
"hiscores", "Hi scores" , 
"quitgame", "Quit Game", 
"arcadegame", "Player V Computer Game", 
"standardgame", "Standard Game", 
"upto3", "Up To 3 Wins", 
"prev", "Previous Menu", 
nbn ; "\o" 

33 


And now, if you use “{{startgame}}”, youcould get “Start Game” as the resulting string. If you had a 
French language file setup, “{{startgame}}” could return “Commencez le jeu”. 
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Part 4 


DDegui Examples 
(all of these require DDgui to 
be added to the project) 


Programmers Guide to using DDGui 


Here are some complete programs that use Dd gui for their interface systems : 


Graphic To Data 


[] ~====3= =a anna J] 

// Project: GraphicToDATA 

// Start: Friday, July 09, 2010 

// IDE Version: 8.036 

CONSTANT fileToLoadwidget$ = "fi leToLoadwidget" 
CONSTANT fileToLoad$ = "#7 1leToLoad" 
CONSTANT browseButton$ = "browse" 


CONSTANT addButton$ = "add" 
CONSTANT l1istOfFi lesList$ "fi lesList" 
CONSTANT removeFi leButton$ "removeFile" 
CONSTANT labelwidget$ "abe lwi dget" 
CONSTANT labelText$ = "TabelText" 
CONSTANT processButton$ = "process" 


CONSTANT processResult$ "processResu lt" 
CONSTANT space$ = " a 
CONSTANT VERSION$ = "0.0.0.5" 


LOCAL sw%,SH%,text$, label$ 
GETSCREENSIZE sw%,SH% 


DDgui_pushdialog(0, 0, sw% , SH) 

DDgui_set("","TEXT" ,"Graphics To DATA ("+VERSION$+") ") 
DDgui _wi dget (fi leToLoadwidget$,"File To Load :",0,0) 
DDgui_text (fi leToLoad$ ,"", sw%-100 ,0) 

DDgui_button (browseButton$ , "Browse", 0,0) 
DDgui_button (addButton$, "Add" ,0,0) 
DDgui_list(1istofFi lesList$,""', sw%-12, SH%-108) 
DDgui_button(removeFileButton$, "Remove File",0,0) 
DDgui_widget (labelwidget$, "Label Name :",0,0) 
DDgui_text (labelText$, "gra nae eeeceh OF Gy 
DDgui_button (proces sButton$,"Process",0,0 

DDgui _wi dget (processResult$,"", sw%-8 ,0) 


WHILE TRUE 
DDgui_show (FALSE) 


IF DDgui_get (browseButton$ , "CLICKED" ) 
text$=DDgui_FileDialog$(TRUE, "*.*") 
IF text$<"" THEN addFile(listOfFilesList$, text$) 
ELSEIF DDgui_get(addButton$,"CLICKED") 
text$=DDgui_get $(fi leToLoad$, "TEXT") 
IF text$<"" THEN addFile(listofFilesList$, text$) 
ELSEIF DDgui_get(processButton$, "CLICKED") 
label $=DDgui_get$ (1 abelText$, "TEXT") 
IF label $="" 
DDgui_msg("Please supply a valid label name", FALSE) 
ELSE 
processFiles(listoOfFilesList$,label$) 
ENDIF 
ELSEIF DDgui_get(removeFi1leButton$," CLICKED") 
removeLine (1 istoOfFi lesList$) 
ENDIF 


SHOWSCREEN 
WEND 


FUNCTION addFile%:widget$, text$ 
IF DOESFILEEXIST(text$) 
DDgui_set(widget$ ," TEXT" ,DDgui_get$(wi dget$ ,"TEXT")+"|"+text$) 
ELSE 
DDgui_msg("The file doesn't exist", FALSE) 
ENDIF 
ENDFUNCT ION 


FUNCTION removeLine%:widget$ 


LOCAL index%, loop%, text$ 
LOCAL Tist$[] 
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Tndex%=Dbgui_get(widget$, SELECT) 
IF index%>=0 | ; ; 
IF pout msg eee sure that you want to delete this line ?",TRUE) 


DIM list$ 
IF SEE RADOUN Uses Guidant s) TERT 2s Mist La, Sit aee 
text$="" 


FOR loop%=0 TO BOUNDS(1list$[] ,0)-1 
IF loop%<index% 
text$=text$+1list$[1o00p%] +" |" 
ENDIF 
NEXT 
DDgui_set(widget$ , "TEXT" ,LEFT$(text$ ,LEN(text$) -1)) 


ELSE 
DDgui_msg("There is nothing to split for some reason!" ,FALSE) 
ENDIF 
ENDIF 
ELSE 
DDgui_msg("There is nothing to select" ,FALSE) 
ENDIF 
ENDFUNCT ION 


FUNCTION processFiles%:widget$, label$ 

LOCAL files$[] 

LOCAL data%[ ] 

LOCAL fi leLoop$ ,ext$,count%, found%, extLoop% 
LOCAL hand1le% 

LOCAL outputFile§$ 

LOCAL maxDataPerL ine%=32 

LOCAL sw%, SH%,sprite% 

LOCAL error$ 


hand] e%=-1 


TRY 
DIM files$[0] 
IF SPLITSTR(DDgui_get$ (widget$, "TEXT") ,files$[] ,"|")>0 
// Get the output filename 
outputFi le$=DDgui_FileDial og$ (FALSE, "*.gbas") 
IF outputFile$=""" THEN RETURN FALSE 
IF DOESFILEEXIST(outputFile$) 
IF DDgui_msg("The file already exists. Do you want to overwrite it 
2?" TRUE) 


KILLFILE outputFile$ 
IF DOESFILEEXIST(CoutputFile$) 
DDgui_msg("The file could not be deleted - it must be in 
use by a program" , FALSE) 
RETURN FALSE 


ENDIF 
ELSE 
RETURN FALSE 
ENDIF 
ENDIF 
count%=1 
hand] e%=GENFILE () 


IF handle%>=0 
IF OPENFILEChand1 e% ,outputFile$ ,0) 
FOREACH fileLoop$ IN files$[] | 
/ Validate the extension 
found%=FAL SE 
FOR extLoop%=LEN( fi leLoop$)-1 TO 0 STEP -1 
IF MID$(fi leLoop$ ,extLoop%,1)="." 
ext $=UCASE $(MID$( fi leLoop$ ,extLoop%+1) ) 
IF ext$="JPEG" OR ext$="JPG" 
DDgui_msgC("JPEG files are not 
currently supported. File will be skipped" ,FALSE) 
ELSEIF ext$="PNG" OR ext$="BMP" 
found%=TRUE 
BREAK 
ENDIF 
ENDIF 
NEXT 


IF found%=FALSE 
DDgui_msg("The file type is not valid - only PNG 
and BMP files are allowed. File will be skipped" ,FALSE) 
ENDIF 
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IF found%=TRUE 
IF DOESFILEEXIST(fi leLoop$) 
Sprite%=GENSPRITE () 
IF sprite%>=0 


DDgui_set(processResult$,"TEXT","Loading : "+fi leLoop$); DDgui_show(FALSE) ; SHOWSCREEN 


LOADSPRITE fileLoop$,sprite% 
GETSPRITESIZE sprite%, sw%, sH% 
IF sw%>0 AND sSH%>0 
DIM data%[0] 
IF 
SPRITE2MEM (data%[], sprite%) ' 
; // Only write the 
GLBasic code once at the start 
processData(hand1e% ,data%[] ,maxDataPerLine%,fileLoop$, count%, sw%,SH%, label$,processResu1t$) 


IF 
count%<BOUNDS(files$[] ,0) 


handle,"\n" 


WRITELINE 
ENDIF 


INC count% . 
LOADS PRITE "" sprite% 


ELSE 
THROW "Unable to 
convert a sprite to data" 
ENDIF 
ELSE 
THROW "Sprite size is 
invalid" 
ENDIF 
ELSE 
THROW "Unable to get a sprite handle" 
ENDIF 
ELSE 
THROW "A file doesn't exist" 
ENDIF 
ENDIF 
NEXT 
CLOSEFILE hand1e% 
DDgui_set(processResult$,"TEXT"," Finished") ; DDgui_show(FALSE) ; 
SHOWS CRE EN 
ELSE 
THROW "Unable to open "+outputFile$ 
ENDIF 
ENDIF 
ELSE 
THROW "There is nothing to process" 
ENDIF 


CATCH error$ 
IF handle%>=0 THEN CLOSEFILE handle% 


DDgui_msg(error$, FALSE) 
RETURN FALSE 
FINALLY 


RETURN TRUE 
ENDFUNCT ION 


//\ Perform RLE compression on data 
FUNCTION 
processData% :hand1e%,data%[] ,maxDataPerLine%, fi leName$ , count%, sprwidth%, sprHeight%, label$,processResu It 


LOCAL loop%, loop2%, found% 
LOCAL v1%, v2%, countDup%, numPerLine%, written% 
LOCAL text$ 


LOCAL graphi cDataHexSi ze% = 8 // 4 bytes 
LOCAL sizeDataHexSi ze% 7 4 // 2 bytes 
text$="" 
100p%=0 


numPerLine%=0 
wri tten%=FALSE 
WHILE 1oop%<BOUNDS(data%[] ,0) 
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vi%=data%L loop% 

countDup%=1 

INC 1oop% 

WHILE 1h0p%<BOUNDS(data%_] , 0) AND countDup%<65535 AND data%[1o00p%]=v1% 
IF MOD(1o00p% , 4096)= 0 

: DDgui_set(processResult$,"TEXT" , loop%+"/"+countDup%) ; 
DDgui_show(FALSE) ; SHOWS CRE EN 

ENDIF 


INC 1oop% 
INC countDup% 
WEND 


IF countDup%>1 


text$=text $+"*"+decToHex $( countDup%, si zeDat aHexSi ze%) 
ENDIF 


text$=text $+decToHex$(v1%, graphicDataHexSize%) 


INC numPerLine% 
IF numPerLine%>maxDataPerLine% 
IF written%=FALSE 
DDgui_set(processResult$,"TEXT","Writing decompression routine"); 
DDgui_show(FALSE) ; SHOWS CREEN 


IF count%=1 
wri teGLBas icCode(hand1e) 


ENDIF 
DDgui_set(processResult$,"TEXT","Writing DATA start"); DDgui_show(FALSE); 
SHOWS CRE EN 

WRITELINE handle%,"// This is the data for the file "+fi leName$ 
WRITELINE hand] e%,"STARTDATA "+ label $+"_"+count%t":" 
WRITELINE handle%;space$+" DATA "+sprwidth%+", "+sprHeight% 

ENDIF 

WRITELINE handle%,space$+"DATA "+CHR$(34)+text$+CHR$ (34) 

wri tten%=TRUE 

text$=' 

numPerLine%=0 

ENDIF 
WEND 


// Is there anything left over ? 

IF text$<' 
DDgui_set(processResult$,"TEXT","writing left-over text"); DDgui_show(FALSE); SHOWSCREEN 
WRITELINE hand] e%, space$+"DATA "4 CHRS$(34)4text$+CHR$ (34) 
wri tten%=T RUE 

ENDIF 


IF written%=TRUE 
DDgui_set(processResult$,"TEXT","Wwriting terminator" ); DDgui_show(FALSE); SHOWSCREEN 
WRITELINE hand] e%, spaces" DATA MECHRS Cid )4- oI "SCHR$(34) 
WRITELINE hand] e%,"ENDDATA" 
ENDIF 
ENDFUNCT ION 


// This is the function that creates the function for reading in the data 
FUNCTION wri teGLBasicCode% :hand1e% 
LOCAL text$ 


RESTORE readSpriteData 


READ text$ 

WHILE text$<>"*" 
text$= Se ceer aes ys '" SCHRS$ (34) ) 
text$=REPLACE$(text$,'"@", sARRS 


DDgui_waitCursor(TRUE) 
WRITELINE hand1e%,text$ 
READ text$ 
WEND 
ENDFUNCT ION 


FUNCTION decToHex$: values lengthens 
IF length%<=0 
RETURN "0" 
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DGStr result; 
unsigned long value2; 
int temp,digit; 


ENDINLINE 
ENDFUNCT ION 


value2=(unsigned long) value; 
result=DGStr(""); 


bas (digit=length; digit>=1; digit--) 


} 


temp=value2 % 16; 
s Ctemp<10) 


resul t=CHR_Str(temp+48)+result; 


else 
} resul t=CHR_Str((temp-10)+65)+result; 
value2/=16; 


return result; 


STARTDATA readSpriteData: 

DATA "//! This function will create a sprite from lines of hexadecimal pixel data. You MUST set 
RESTORE to the appropriate data statement first!" 

DATA "//@param _sprite% - The sprite number which will be created. If this is < 0 then a sprite 
handle will be automatically found if possible” 

DATA "//@return >=0 if the function completed successfully. The value returned is the sprite 


number used 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


"FUNCTION readSpriteData%: sprite%=-1" 


"LOCAL 
"LOCAL 
"LOCAL 
"LOCAL 
"LOCAL 
"LOCAL 


text$,error$,one$,1oop%, index%" 
array%[ |" 
textLen% 
hexSi ze% 
dupsize% = 
width%, hei ght%" 


" TRY" 


IF sprite%<0" 

Spri te%=GENSPRITE()" 

IF sprite%<0 THEN THROW 'Unable to get a sprite handle'" 
ENDIF" 


READ width%, hei ght%" : ; . a ; 
IF width%<=0 OR height%<=0 THEN THROW 'Sprite width and/or height is invalid'" 
IF width%*height%<0 THEN THROW ‘Sprite width and/or height is too large'" 


DIM array%[width**height%] " 
index%=0" 


READ text$" 
WHILE text$<>'--------'" 
IF LEN(text$) <8 THEN THROW 'A line has an invalid number of characters'" 


loop%=0" 
WHILE 1oop%<LEN (text $)" 
IF MIDS(text$, 100p%,1)="*"" 
LOCAL value%,amount%" 


// Duplicate data" 
amount%=hexToDec (MID$ (text$, loop%+1 ,dupSize%)) " 
va lue%=hexToDec(MID$(text$, loop%+1+dups ize%, hexSi ze%) )" 
WHILE amount%>0' 

array%[index%]=va lue%" 

INC index%" 

DEC amount%" 
WEND" 


INC 100p% ,jhexSize%+dupsS ize%+1" 
ELSE" 
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DATA - array%|index%]=hex ToDec(MID$( texts , 100p%, hexS1ze%) ) 

DATA " INC loop%,hexSize%" 

DATA " INC index%" 

DATA " ENDIF" 

DATA " WEND" 

DATA " READ text$" 

DATA " SLEEP 1" 

DATA " WEND" 

DATA "" 

DATA " // All finished, so we now call the MEM2SPRITE function" 

DATA " IF MEM2SPRITE(array%[] ,sprite%, width%, height%)=FALSE THEN THROW 'Unable TO convert 
DATA TO a sprite'" 

DATA " CATCH error$" 

DATA " // Put in your own code to display errors here. Uncomment to use DDGui" 

DATA " // DDgui_msg(error$ ,FALSE)" 

DATA " // You MUST keep the following command" 

DATA " RETURN -1" 

DATA " FINALLY" 

DATA "" 

DATA " RETURN sprite%" 

DATA "ENDFUNCTION"™ 

DATA "" 


DATA "//! Convert a hexadecimal number of an integer" 
DATA "//param hex$ - Hexidecimal string" 

DATA "//@return The decimal value of the passed string" 
DATA "FUNCTION hexToDec%:hex$" 

DATA "LOCAL 1%" 

DATA "LOCAL j%" 

DATA "LOCAL 1o00p%" 


DATA 
DATA " i%=0" 
DATA " j%=0" 
DATA " FOR loop%=0 TO LENChex$)-1" 
DATA " 1%=ASC(MID$(hex$, loop%,1)) -48" 
DATA " IF 9<i% THEN DEC 1%,7" 
DATA " ]%=boR(j%* 16 ,bAND i ,15))" 
DATA NEXT 
DATA mee 
DATA " RETURN 4%" 
DATA "ENDFUNCTION 
DATA mee 
DATA Wat 
ENDDATA 


This program converts one or more sprites to compressed hexadecimal data, and looks like : 


=" 


Graphics To DATA (8.8.0.5) 
Pile To Load 
Browse fidd 


| Remove Pile Label Name = graphic Process 
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Vector Editor 


// Project: VectorEditor 
// Start: Saturday, July 17, 2010 
// IDE Version: 8.036 


// Working mode constants 


CONSTANT VERSION$ "1.0.0.2" 


CONSTANT MODE_ADD% 
CONSTANT MODE_MOVE% 
CONSTANT MODE_REMOVE% 
CONSTANT MODE_INSERT% 


WN II Il 


Il 
fo) 


CONSTANT CELL_NODE% 


pa 


CONSTANT NODE_HANDLE% 
CONSTANT NODE_NODE1% 
CONSTANT NODE_NODE2% 
CONSTANT NODE_NODE3% 
CONSTANT NODE_NODE4% 
CONSTANT NODE_NODE5% 
CONSTANT NODE_NODE6% 
CONSTANT NODE_NODE7% 
CONSTANT NODE_NODE8% 
CONSTANT NODE_NODE9% 
CONSTANT NODE_NODE10% 
CONSTANT NODE_USER% 


I|OONDMABRWNEHO! 
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CONSTANT INVALID% -1 


CONSTANT SECTION_NAME$= "OBJECT" 

CONSTANT KEY_AUTHOR$ = " AUTHOR" 

CONSTANT KEY_OBJECTNAME$= "NAME" 

CONSTANT KEY_HANDLE$ = "HANDLE" 

CONSTANT KEY_DATA$ = "DATA" 

CONSTANT KEY_INUSE$ = "INUSE" // Groups in use 


CONSTANT SECTION_USER$= "USER" 
CONSTANT KEY_COUNT$ 


"COUNT" 


CONSTANT COLOUR_HANDLE1%= RGB a8 , 128,128) 
CONSTANT COLOUR_HANDLE 2%= RGB (64,64, 64) 


CONSTANT MAX_NODEGROUPS%= 10 
CONSTANT MAX_USERGROUPS%= 10 


// Holds X & Y value for a node or user cell 
TYPE tNode 
// X &Y cell position 
fe) 
eurkentcoleurce // Colour for node not connecting to first/last node 
lastcolour% 
ENDTY PE 


TYPE tNodeGroup 
name$ / Node name 
nodes[] AS tNode 

ENDTY PE 


// Holds user cell information when reading in from INI file 
TYPE tcellinfo 
name$ 
nodeIndex% // NODE_NODE1-10 for nodes, > NODE_NODE10 for user cells 
currentcol our% 
lastcolour% 
maxRange% 
ENDTY PE 


TYPE tFindItem 


groupIndex% // <0, if not in use, 0 - 9 for node group, > 9 for user cell 
nodeIndex% // Index into array 

ENDTY PE 

TYPE tUndo 
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name$ 

nodeGroup[] AS tNodeGroup 

usercells[] AS tNodeGroup 
ENDTY PE 


// Displays the grid 
TYPE TGrid 

x% 

y% 

gridsprite% 
GRID_WIDTH% 
GRID_HEIGHT% 
cel lwidth% 
cel lHeight% 
hal fcel |width% 
hal fCel1lHeight% 
totalHei ght% 
totalwidth% 
hand] ex% 
hand eyY% 
showx% 
showy% 


Hee a AS tNodeGroup 
usercells[] AS tNodeGroup 
undo[] AS tUndo 


actionType% // Whether we're in add, move, remove or insert mode 
ea cel|Mode AS tcellInfo // Type of cell information to process - add a node or user-defined cell 
information 


leftButtonPressed% 
findiItem AS tFindItem 


FUNCTION Initialise%:screenwi dth% ,screenHei ght% 
LOCAL screen%=0 
LOCAL 1x%, ly% 


Set ET eee ® 
IF se f. gridSprite%<0 THEN RETURN FALSE 


DIM self .userce1l1s[MAX_USERGROUPS%] 

FOR 1y%=0 TO MAX_USERGROUPS%-1 
self.usercel Is[ly%] .name$="User Cell #"+ly% 

NEXT 


DIM self .nodeGroup[MAX_NODEGROUPS%] 

FOR 1y%=0_TO MAX_NODEGROUPS%-1 
self.nodeGroup[ ly%] .name$="Node Group #"+ly% 

NEXT 


self.ClearData() 


self. cel Iwidth*=INTEGER( (screenwi dth%/2) /se1f .GRID_WIDTH%) 


Se ee) mace alba ect cellwid h% 
self.hal fcel Iwi dth%=INTEGER(sel f. cel lwidth%/2) 
self.halfcel lHeight%=self.hal fcel Iwi dth% 


self. totalwidth%=self.cellwidth%* sel f. GRID_WIDTH% 
self. total Height%=self.cel lHeight%*sel f . GRID_HEIGHT% 


self. x%=((screenwidth%/2)-self.totalwidth%) /2 
self. y%=(screenHeight%-self.totalHei ght%) /2 


self. showx%= (sc reenwidth%/2)+ (CC (screenwi dth%/2) -self .GRID_WIDTH%) /2) 
sel f. showy%=screenHeight%- 4-sel f. GRID_HEIGHT% 


CREATESCREEN screen%,self.gridSprite%, self. tota lwidth%+2 ,self.totalHei ght%+2 
USESCREEN screen% 


FOR ly%=1 TO self .GRID_HEIGHT%-1 


DRAWL INE 
1,ly%*self.cellHeight%,self.totalwidth%, ly%*self.cel IHeight%, RGBCO ,0,200) 
NEXT 


FOR 1x%=1 TO self .GRID_WIDTH%-1 
DRAWLINE 1x%*self.cellwidth%, 1, 1x%*self.cel lwidth%, self. total Height% ,RGBCO, 0, 200) 
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NEXT 


DRAWLINE 0,0 self .totalwidth%,0,RGBCO,0 200) : 

DRAWLINE sel?.totalWidth%1,0,self.totalwidth%+1, self. totalHe ight%+1,RGB(0, 0, 200) 
DRAWL INE Be Oe oe ig Nee ook pac het Obert ty Ree eco) 
DRAWLINE 0,0,0,self.totalHeight%+1,RGB (0,0, 200) 


USESCREEN -1 


self.hand] ex%=INTEGER(se If .GRID_WIDTH%/2) 
self.hand] eY%=INTEGER(se If .GRID_HEIGHT%/ 2) 


self. leftButtonPres sed%=FALSE 
self. findI tem. group Index%=INVAL ID% 
self. findI tem. nodeIndex%=INVALID% 


RETURN TRUE 
ENDFUNCT ION 


//'| Change action type 

FUNCTION SetActionType%: actionType% 
self.actionT ype%=actionT ype% 

ENDFUNCT ION 


FUNCTION SetNodeInfo%: cellInfo AS tCel1lInfo 
self.cel IMode=cel lInfo 
ENDFUNCT ION 


//\ Display the grid, nodes and user cells 

FUNCTION DisplayGrid%: 

LOCAL loop AS tNode 

LOCAL 100p2%, loop 3% ,size%, x1%,y1% ,x2%, y2%,nextIndex% ,colour% 


// Display the grid first 
ALPHAMODE 0.0 
DRAWSPRITE self.gridSprite%,self.x%, self .y% 


// Draw the handle 
FOR x1%=0 TO self.GRID_WIDTH%-1 

self. Rect(x1%,sel f. hand] ey%, COLOUR_HANDL E2%) 
NEXT 


FOR y1%=0 TO self .GRID_HEIGHT%-1 
self.Rect(self.hand1ex%, y1%, COLOUR_HANDLE2%) 
NEXT 


self.Rect(self.hand1lex%, self. hand1ley%, COLOUR_HANDLE1%) 


// Draw user-defined cells 
FOR 1oop2%=0 TO MAX_NODEGROUPS%-1 
FOREACH loop IN self.usercells[loop2%] .nodes[] 
self.Rect( loop. x%, loop.y%, loop. currentco lour%) 
NEXT 
NEXT 


// Draw node cells 
FOR 100p2%=0 TO MAX_NODEGROUPS%-1 
FOREACH loop IN self.nodeGroup[1loop2%] .nodes[] 
self.Rect( loop. x%, loop.y%, loop. currentco lour%) 
NEXT 
NEXT 


// Draw node lines 
FOR 1oop2%=0 TO MAX_NODEGROUPS%-1 
$1Ze%=BOUNDS (self .nodeGroup[100p2%] .nodes[] ,0) 
IF size%>1 
FOR 1oop3%=0 TO size%-1 


x1%=self .x%+ (self .nodeGroup[100p2%] . nodes[100p3%] .x%*self.cel Iwidth%)+1+sel f. hal fcel Iwi dth% 


yl%=self .y%+ (self .nodeGroup[1o0op2%] . nodes[100p3%] .y%*self.cel IHeight%) +1+self .halfce 11Hei ght% 
nextIndex%=1 oop 3%+1 
IF nextIndex%>=si ze% 
nextIndex%=0 
col our%=RGB(255 ,255,0) 
ELSE 
colour%=self .nodeGroup [100p2%] . nodes [1 00p3%] . currentco lour% 
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ENDIF 


x2%=self .x%+ (self .nodeGroup[100p2%] . nodes[nextIndex%] . x%*self .cellwidth%) +1+self.hal fcellwidth% 
y2%=self .y%+ (self .nodeGroup[1oop2%] . nodes[nextIndex%] . y%4*self.cellHeight%)+1+self.halfcel IHeight 
DRAWLINE x1%,y1%, x2%,y2%,colour% 


x1%=self.showx%+sel f.nodeGroup[ loop2%] .nodes[ loop 3%] .x% 
y1%=self .showy%+sel f.nodeGroup[ loop2%] .nodes[ 1o0p3%] .y% 
meee plage ttc esse ra pac ale ut fate pe Mera ee 
y2%=self .showy%+sel f.nodeGroup[ loop2%] .nodes[nextIndex%] . y% 
DRAWLINE x1%,y1%, x2%,y2%,RGBCO,0, 255) 


NEXT 
ENDIF 
NEXT 
ENDFUNCT ION 


FUNCTION Rect%: x%,y%,colour% 
DRAWRECT 
self. x%+ (x%* sel Ff. cel lwidth%)+1, self. y%+Cy%* self .cellHeight%)+1, self. cellwidth%, self. cel IHei ght%, co lour% 
ENDFUNCT ION 


FUNCTION Process&%: 
LOCAL mx%, my%,b1% ,b2% 


MOUSESTATE mx%,my%, b1% ,b2% 


IF b1% 
SELECT self.actionType% 
CASE MODE_ADD% 
IF self. leftButtonPressed%=FALSE 
IF self. InGridArea(mx% ,my%) 


IF 
self.cel IMode.nodeIndex%>=NODE_NODE1% AND self.cel1lMode. nodeIndex%<=NODE_NODE 10% 


sel f. AddNodeItem(mx%,my%) 
ELSE 


self. AddUserItem(mx%,my%) 
ENDIF 


self. leftButtonPres sed%=TRUE 
ENDIF 
ENDIF 


CASE MODE_MOVE% 
// Move a node or user-defined cell 
IF self. leftButtonPressed%=FALSE 


IF 
self. FindNode(mx% ,my%, self .findItem) =TRUE 
self. leftButtonPres sed%=TRUE 
ENDIF 
ELSE 
IF 
self. findItem.nodeIndex%<> INVALID% 
sel f.MoveItem(mx% ,my%, self.findItem) 
ENDIF 
ENDIF 


CASE MOD E_REMOVE% . 
// Remove a node or user-defined cel] 
IF self. leftButtonPressed%=FALSE 


IF 
self. FindNode(mx% ,my%, self.findItem) =TRUE 
self. leftButtonPres sed%=TRUE 
ENDIF 
ELSE 
IF 


self. findItem.nodeIndex%<> INVALID% 
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self.DeleteItem(self.findI tem) 
self. findItem.nodeIndex%=INVALID% 
ENDIF 
ENDIF 


CASE MODE_INSERT% 


// Insert and sort - only with nodes 
IF self. leftButtonPressed%=FALSE 
IF self. InGridAreaCmx% ,my%) 


IF 
self.cel IMode.nodeIndex%>=NODE_NODE1% AND self.cel1lMode. nodeIndex%<=NODE_NODE 10% 


sel f. AddNodeItem(mx%,my%) 


BOUNDS(sel f. nodeGroup[self.cel1Mode. nodeIndex%-NODE_NODE1%] .nodes[], 0) -1 
self.nodeGroup[self.cel1Mode. nodeIndex%-NODE_NODE1%] .nodes[mx%] .x%+" 
"+sel1f.nodeGroup[self.cel1Mode.nodeIndex%-NODE_NODE1%] .nodes[mx%] . y+" \n" 


// 
sel f.nodeGroup[self.cel1Mode. nodeIndex%-NODE_NODE1%] .nodes[] , ADDRESSOF (sortRouti ne) 


BOUNDS(sel f. nodeGroup[self.cel1Mode. nodeIndex%-NODE_NODE1%] .nodes[], 0) -1 


sel f.nodeGroup[self .cel1Mode. nodeIndex%-NODE_NODE1%] .nodes[mx%] .x%+" 
"+self.nodeGroup[self.cel]1Mode.nodeIndex%-NODE_NODE1%] .nodes[mx%] . y+" \n" 


ELSE 


self. AddUserItem(mx%,my%) 
ENDIF 


self. leftButtonPres sed%=TRUE 


ENDIF 
ENDIF 

ENDSELECT 

ELSE 
self. leftButtonPressed%=FALSE 
self. findItem.groupIndex%=INVAL ID% 
self. findItem.nodeIndex%=INVALID% 

ENDIF 

ENDFUNCT ION 


//'! Are mouse coordinates withing grid area ? 
FUNCTION InGridArea%:mx% ,my% 
IF (mx%>=self.x% AND mx%<=self.x%+self.totalwidth%) AND _ 
(my%>=self.y% AND my%<=sel f.y%tself.totalHeight%) 
RETURN TRUE 
ELSE 
RETURN FALSE 
ENDIF 
ENDFUNCT ION 


//\ Convert mouse coordinates to cell X & Y values 

FUNCTION MousexYToCel 1 XY%: mx% ,my% ,BYREF cel 1X%,BYREF cel 1Y% 
Se NUE ERE ae CLE Olay 4 ccle Coltmenaes 
cel 1Y%=INTEGER( (my%-(sel f. y4+1) )/sel f. cel 1Hei ght%) 

ENDFUNCT ION 


//\ Delete a node or user cell 
FUNCTION DeleteItem%:found AS tFindItem 
IF found.groupIndex%>=NODE_NODE1% AND found .groupIndex%<=NODE_NODE10% 
77 be letind a node 


FOR mx%=0 TO 


DEBUG 


NEXT 
DEBUG "\n" 


/ Sort 
SORTARRAY 


FOR mx%=0 TO 


DEBUG 


NEXT 


DIMDEL self.nodeGroup[ found.groupIndex%-NODE_NODE1%] .nodes[], found .nodeIndex% 


ELSEIF found .groupIndex%>=NODE_USER% 
// Deleting User cell 


DIMDEL self.usercel ls[found.groupIndex%-NODE_USER%] . nodes[] , found. nodeIndex% 
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ELSE 
DDgui_msgC("Invalid group index value : "+found.groupIndex%, FALSE) 
ENDIF 
ENDFUNCT ION 


//'! Add a node to the node list into the current node group 
FUNCTION AddNodelItem%: mx%, my% 
LOCAL node AS tNode 


self.AddToUndo("Adding Node") 

sel f.MousexyTocel 1XY(mx% ,my%, node .x%,node.y%) 

node. currentcol our%=self.cellMode.currentco lour% 

node. lastColour%=se lf. cel1Mode. lastCol our% 

DIMPUSH self.nodeGroup [sel f.cel IMode .nodeIndex% -NODE_NODE1%] . nodes [] ,node 
ENDFUNCT ION 


//\ Add a user-defined cell to the correct group 
FUNCTION AddUserItem%: mx%, my% 
LOCAL node AS tNode 


IF ee SAE rer ER eee AND (BOUNDS (sel f.usercel Is[self.cel1lMode. nodeIndex%- 
NODE_USER%] . nodes [] ,0) <self.cel IMode .maxRange%)) OR (self.cel IMode .maxRange%<0) 
self.AddToUndo("Adding User Cel 1") 
sel f.MousexyTocel IxXY(mx%,my%, node .x%, node. y%) 
node. lastColour%=se If. cel1Mode. lastcol our% 
node. currentcol our%=self.cellMode.currentco lour% 
DIMPUSH self.usercells[self.cel IMode .nodeIndex% -NODE_USER%] .nodes[], node 


ELSE 
DDgui_msgC("You are only allow to use "+self.cel IMode.maxRange%+" of the selected 
cell", FALSE) 
ENDIF 
ENDFUNCT ION 


FUNCTION FindNode%: mx% ,my%,found AS tFindItem 
LOCAL loop% 
LOCAL cx%, cy% 


sel f.MousexyTocel IXY(mx% ,my%, Cx%, Cy%) 


// Look for group node 
FOR 1oop%=0 TO MAX_NODEGROUPS%- 1 
FOR 1oop2%=0 TO Fie eee ey Care aera ae a 
IF self.nodeGroup[1oop%] .nodes[ loop2%] .x%=cx% AND 
sel f.nodeGroup[ loop%] . nodes[100p2%] . ys=cy% 
found .groupIndex%=1 00p%+NODE_NODE1% 
found .node Index%=1oop2% 
RETURN TRUE 
ENDIF 
NEXT 
NEXT 


// Now we look for user cells 
FOR 1loop%=0 TO MAX_USERGROUPS%- 1 
FOR 1o00p2%=0 TO BUNS (eel Tusarcel lst loopy nodest 71 
IF self.usercel ls[loop%] .nodes[ loop2%] .x%=cx% AND 
self.usercel ls[loop%] . nodes[100p2%] . ys=cy% 
found .groupIndex%=1 00p%+NODE_USER% 
found .node Index%=1oo0p2% 
RETURN TRUE 
ENDIF 
NEXT 
NEXT 


RETURN FALSE 
ENDFUNCT ION 


//\ Move a node or user cell 
FUNCTION MoveItem%: mx% ,my%,found AS tFindItem 
IF found.groupIndex%>=NODE_NODE1% AND found .groupIndex%<=NODE_NODE 10% 
ea Moving a node 
self.AddToUndo("Moving Node") 
self.MousexyTocel 1XY(mx% ,my%, self .nodeGroup [found . groupIndex% - 
NODE_NODE1%] .nodes[ found .nodeIndex%] .x%, sel f. nodeGroup [found. group Index%- 
NODE_NODE1%] .nodes[ found .nodeIndex%] .y%) 
Sr etc eacehtpeae clay Secle eR 
NODE_NODE1%] .nodes[ found .nodeIndex%] .x%, sel f. nodeGroup [ found. group Index%- 
NODE_NODE1%] .nodes[ found .nodeIndex%] .y%) 
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ELSEIF found .grouplndex%>=NODE_USER% 
/ user cell 
self.AddToUndo("Movinf User Cel1") 
sel f.MousexyTocel IXY(mx% ,my%, self .usercells [found .groupIndex% - 
NODE_USER%] . nodes [found. nodeIndex%] . x%, self .usercel1s[ found .groupIndex%- 
NODE_USER%] . nodes [found. nodeIndex%] . y%) 
self. checkInRange (self .userce11s[ found .groupIndex%- 
NODE_USER%] . nodes [found. nodeIndex%] .x%,self .usercel1s[ found .groupIndex%- 
NODE_USER%] . nodes [found. nodeIndex%] . y%) 
ELSE 
DDgui_msg("Invalid group index value : "+found.groupIndex%, FALSE) 
ENDIF 
ENDFUNCT ION 


FUNCTION ReturnHandlexYAsString$: 
RETURN self. hand] ex%+" ,""+self.handley% 
ENDFUNCT ION 


//\! Convert all the X/Y values to a string, subtracting the handle X & Y positions from it 
FUNCTION ReturnNodesAsString$ :index% 

LOCAL temp$ 

LOCAL loop AS tNode 


tem gs" 
FOREACH loop IN self.nodeGroup[index%] .nodes[] 

temp$=temp $+ Cloop .x%-sel f. hand] ex%)+", "+ Cloop.y%-sel f. hand] ey%) +", " 
NEXT 


RETURN LEFT$(temp$, LEN (temp$) -1) 
ENDFUNCT ION 


//\ Convert all the X/Y values to a string, subtracting the handle X & Y positions from it. 
This is for user cells 

FUNCTION ReturnUsercel lsAsString$ :index% 

LOCAL temp$ 

LOCAL loop AS tNode 

temp$="" 

FOREACH loop IN SA er cka be ie Nite -nodes[] 

temp$=temp $+ Cloop .x%-sel f. hand] ex%)+", '+Cloop.y%-sel f. hand] ey%) +", " 
NEXT 


RETURN LEFT$(temp$, LEN (temp$) -1) 
ENDFUNCT ION 


//\ Return a string containing only groups in use 
FUNCTION ReturnGroupsinuse$: 

LOCAL temp$ 

LOCAL loop% 


temp$="" 
FOR’ 1 00p%=NODE_NODE1% TO NODE_NODE10% 
IF BOUNDS(self.nodeGroup [1 00p%-NODE_NODE1%] .nodes [] , 0) >0 
temp$=temp $+ Cloop%-NODE_NODE1%) +" ," 
ENDIF 
NEXT 


RETURN LEFT$(temp$, LEN (temp$) -1) 
ENDFUNCT ION 


//'! Search for any user cells 
FUNCTION ReturnUserGroupInuse$: 
LOCAL loop% 
LOCAL temp$ 
tem gs" 
FOR loop%=0 TO MAX_USERGROUPS%- 1 
IF BOUNDS(se1f.userCel 1s [1o0p%] .nodes[] ,0)>0 
temp$=temp $+ loop%+" ,' 
ENDIF 
NEXT 


RETURN LEFT$(temp$, LEN (temp$) -1) 
ENDFUNCT ION 


FUNCTION SetHand]eFromText%:text$ 
LOCAL val$[] 
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IF text$="" 
Be ees cceR ted e Ge iE 
self. hand] eY%=INTEGER(se If .GRID_HEIGHT%/ 2) 
ELSE 
DIM val$[0] 
IF SPLITSTR(Ctext$,val$[],",")>=2 
self. hand] ex%=INTEGER(va1$[0]) 
sel f.hand] eY%=INTEGER(va1$[1]) 
ELSE 
DDgui_msg("Invalid handle data - reverting to default" ,FALSE) 
sel f.hand] ex%=INTEGER(se lf .GRID_WIDTH%/2 ) 
self. hand] eY%=INTEGER(se 1f .GRID_HEIGHT%/ 2) 
ENDIF 
ENDIF 


RETURN TRUE 
ENDFUNCT ION 


FUNCTION SetDataNodesFromText%: nodeIndex%, text$,currentColour%, lastCol our% 
LOCAL val$[] 

LOCAL loop%, size% 

LOCAL node AS tNode 


DIM val$[0] 
size%=SPLITSTR(text$,val$[],",") 
IF size%>0 
IF MOD(size%,2)>0 
DDgui_msg("Invalid number of data nodes present", FALSE) 
RETURN FALSE 
ENDIF 


FOR loop%=0 TO size%-2 STEP 2 
node. x%=INTEGER (val $[1 oop] )+sel f. hand1 ex% 
node. y%=INTEGER (val $[1 00p+1])+sel f.handley% 
node. currentcol our%=currentcCo lour% 
node. lastColour%=lastcol our% 
DIMPUSH self .nodeGroup [nodeIndex%] .nodes [], node 


NEXT 

ELSE 
DDgui_msg("No valid node data", FALSE) 
RETURN FALSE 

ENDIF 


RETURN TRUE 
ENDFUNCT ION 


//\ Load the user data 

FUNCTION SetUserDataFromText% :nodeIndex%,text$, currentco lour%, lastColour% 
LOCAL val$[]J 

LOCAL loop%, size% 

LOCAL dataS1ze% = 2 

LOCAL node AS tNode 


IF text$<o"" 
size%=SPLITSTR(text$,val$[],"," 
IF MOD(size%,dataSi ze%)>0 
DDgui_msgC("Invalid amount of data in user data section", FALSE) 
RETURN FALSE 
ENDIF 


FOR loop%=0 TO size%-2 STEP 2 
ibe pag me LS ce et ge a Note 
node. y%=INTEGER (val $[1 00p+1])+self.handley% 
node. currentcol our%=currentCo lour% 
node. lastColour%=lastcol our% 
DIMPUSH self.usercel1s [nodeIndex%] .nodes [] , node 
NEXT 
ENDIF 


RETURN TRUE 
ENDFUNCT ION 


//'! Flip vector horizontally or vertical ly 
FUNCTION F1lip%: isHorizonta 1% 

LOCAL node AS tNode 

LOCAL loop% 
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// Process nodes 
self.AddToUndo("Flipping Nodes & User Cells") 
FOR 1loop%=0 TO MAX_NODEGROUPS%- 1 
FOREACH node IN self.nodeGroup[ 1loop%] . nodes [] 
IF isHorizontal% 
node. x%=(sel f.GRID_WIDTH%- 1) -node .x% 
ELSE 
node. y%=(sel f.GRID_HEIGHT%-1) -node.y% 
ENDIF 
NEXT 
NEXT 


// Process user cells 
FOR 1loop%=0 TO MAX_USERGROUPS%- 1 
FOREACH node IN self.usercells[1oop%]. nodes [] 
IF isHorizontal% 
node. x%=(sel f.GRID_WIDTH%- 1) - node . x% 
ELSE 
node. y%= (sel f.GRID_HEIGHT%-1) -node.y% 


NEXT 
ENDFUNCT ION 


//'! Scroll] vertically or horizontally 
FUNCTION Scrol1%: di rx%,dirY% 

LOCAL node AS tNode 

LOCAL loop% 


// Process nodes 
self.AddToUndo("Scrolling Nodes and User cells") 
FOR 1loop%=0 TO MAX_NODEGROUPS%- 1 
FOREACH node IN sel f.nodeGroup[ loop%] . nodes [] 
sel f.Move(node, di rx%,dirYv%) 
NEXT 
NEXT 


// Process user cells 
FOR loop%=0 TO MAX_USERGROUPS%- 1 
FOREACH node IN self.usercells[1oop%]. nodes [] 
sel f.Move(node, di rx%,dirY%) 
NEXT 
NEXT 
ENDFUNCT ION 


// Move a node in given direction 
FUNCTION Move%: node AS tNode, dirx%,diry% 

INC node.x%, dirx% 

INC node .y%, dirY% 

sel f. checkInRange (node .x%, node. y%) 
ENDFUNCT ION 


FUNCTION Rotate%: angle 
LOCAL loop% 

LOCAL node AS tNode 
LOCAL s,c 


self.AddToUndo("Rotating Nodes and User Cells") 


S=SIN (angle) 
c=COS (angle) 


// First, rotate all nodes in all groups 
FOR 1loop%=0 TO MAX_NODEGROUPS%- 1 
FOREACH node IN self.nodeGroup[ 1oop%] . nodes [] 
self. Rotate2 (node,s,c) 
NEXT 
NEXT 


// Now rotate all user cells 
FOR 1loop%=0 TO MAX_USERGROUPS%- 1 
FOREACH node IN self.usercells[1oop%].nodes [] 
self. Rotate2 (node,s,c) 
NEXT 
NEXT 
ENDFUNCT ION 
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//\ Perform rotating action 
FUNCTION Rotate2:node AS tNode,s,c 
LOCAL x,y,rx,ry 


Send eel E tendie eto 
y=(node. y%-self .handley%)*1.0 


rx=(c*x) -(s*y) 

ry=(c*y) +(s*x) 

node. x%=self .handlex%+rx 

node. yx=self .handley%+ry 

sel f. check InRange (node .x%, node. y%) 
ENDFUNCT ION 


//\ Clear all data 
FUNCTION ClearData%: 
LOCAL loop% 


FOR loop%=0 TO MAX_NODEGROUPS%- 1 
DIM self .nodeGroup[ loop%] . nodes [0] 
NEXT 


FOR 1loop%=0 TO MAX_USERGROUPS%- 1 
DIM self.usercells[1loop%]. nodes [0] 
NEXT 


// Clear the undo buffer 
DIM self.undo[0] 
ENDFUNCT ION 


//\ Make sure X & Y values are in range 
FUNCT ION CheckInRange% : BYREF x% , BYREF y% 
IF x%<=0 
x%=0 
ELSEIF x%>=self .GRID_WIDTH% 
x%=se 1f.GRID_WIDTH%-1 
ENDIF 


IF y%<=0 
y%=0 
ELSEIF y%>=self .GRID_HEIGHT% 
y%=se 1f.GRID_HEIGHT%-1 
ENDIF 
ENDFUNCT ION 


//\ See if there is anything to save. At least 2 nodes 
FUNCTION AnythingToSave%: 
LOCAL loop% 


FOR l1oop%=0 TO MAX_NODEGROUPS%- 1 
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in at least one group 


IF BOUNDS(self.nodeGroup [1 00p%] .nodes[],0)>=2 THEN RETURN TRUE 


NEXT 


RETURN FALSE 
ENDFUNCT ION 


//\ Store in undo array 
FUNCTION AddToUndo%:name$ 
LOCAL un AS tUndo 


un. name$=name$ 
Bee ae Hecede neem esti ry 
un.usercel Is[]=self .usercells 
DIMPUSH self.undo[] ,un 

ENDFUNCT ION 


//\ Undo last action 
FUNCTION DoUndo%: 
IF BOUNDS(self.undo[],0)>0 
sel f.nodeGroup[ ]=self.undo[-1] . nodeGroup 
self.usercel Is[ ]=self.undo[-1].usercel1s 
DIMDEL self.undo[], -1 
ENDIF 
ENDFUNCT ION 
ENDTY PE 
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/7\ Deals with all GUI stuff 

TYPE TGui 
WINDOW_WIDTH% 
WINDOW_HEIGHT% 
authorNamewi dget$ 


"Author Name : 


authorNameText$ = "authorNameText" 
obj ectNamewi dget$ = "Object Name :" 
obj ectNameText$ = “objectNameText" 


"Action Type :" 
“actionType" 


actionTypewi dget$ 
act ionTypeCombo $ 


nodeTypewi dget$ = "Node Type ne 
nodeListCcombo$ = "nodeListcombo' 
nodeList$ 

loadData$ = "Load Data" 
saveData$ = "Save Data" 
clearData$ = "Clear Data" 
rotateclockwise$ - "Rotate Right" 
rotateAntiClockwise$ = "Rotate Left" 

horizontal Flip$ = "Horizontal Flip" 
verticalFlip$ - "Vertical Flip" 
scrollup$ "Scroll Up" 


scrol IDown$ 
scrol lLeft$ 


"Scroll Down 
"Scroll Left" 


scrol IRight$ = "Scroll Right" 
undo$ = "Undo" 
celliInfo[] AS tcellinfo // Contains cell information 


FUNCTION Initialise%:screenwi dth% ,screenHei ght% 
LOCAL loop%, name$ ,maxValue%, r%, g% , b% 


DIM self.cel lInfo[0] 


sel f. WINDOW_WIDTH%=screenwidth%/2 
sel f. WINDOW_HEIGHT%=sc reenHei ght% 


// Setup all cell information. First, add all the node groups 
FOR loop%=0 TO MAX_NODEGROUPS%- 1 
self.AddcelliInfoC"Node Group #"+100p%, RGB(255 -C1loop%*15) ,0,0) ,RGBCO, 255- 
Cloop%*15) ,0) ,NODE_NODE1%+ loop%) 
NEXT 


// Now add user cells 
RESTORE parts 
FOR 1loop%=0 TO MAX_USERGROUPS%- 1 
READ name$ ,maxValue%, r%, g% , b% 
sel f.Addcel1InfoCname$ , RGB (r% ,g%, 6%) ,0 ,NODE_USER%+loop%, maxVa 1ue%) 
NEXT 


// Build cell list information 
self.nodeList$=self.Buildcellinfo$O 
RETURN TRUE 

ENDFUNCT ION 


//\ Add cell information data to auey 
FUNCTION Addcel lInfo%: name$,currentcolour%, lastCco lour% ,nodeIndex%, maxRange%=-1 
LOCAL cInfo AS tCellinfo 


cInfo.name$=name$ 
cInfo.currentcCo lour%=cur rentcol our% 
cInfo.lastco lour%=1astco lour% 
cInfo .nodeIndex%=nodeI ndex% 
cInfo .maxRange%=maxRange% 
DIMPUSH gait cee lantol ) cinke 
RETURN TRUE 

ENDFUNCT ION 


FUNCTION Bui Idcel linfo$: 
LOCAL temp$ 
LOCAL loop AS tcelliInfo 


FOREACH loop IN self.cel lInfol] 
temp$=temp$+ loop. name$+" |" 
NEXT 


RETURN LEFT$(temp$, LEN (temp$) -1) 
ENDFUNCT ION 
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FUNCTION Createwindow%: 


DDgui_pushdi alog(se1f.WINDOW_WIDTH%, 0, se1f.WINDOW_WIDTH% , se 1f .WINDOW_HEIGHT%) 
DDgui_set(""","TEXT" ,"Vector Editor") 
RETURN TRUE 


ENDFUNCT ION 
FUNCTION Addoptions%:grid AS TGrid 


DDgui _widget (self .authorNamewidget$, self .authorNamewidget$, se1f .wINDOW_WIDTH%,0) ; 
DDgui_text (self .authorNameText$ ,"",self.WINDOW_WIDTH%-8, 0) 

DDgui _wi dget (self .objectNamewidget$, self .objectNamewidget$, self .wINDOW_WIDTH% ,0) ; 
DDgui_text (self .objectNameText$ ,"",sel f.wINDOW_WIDTH%-8, 0) 


Bee OU a a cue cul Dm as ye cc wee oy aCe 


DDgui_combo(sel f. actionTypecombo$ , "Add |Move |Remove|Insert", self .wINDOW_WIDTH%-24 ,0) 


// Set the working mode 
DDgui_set(self.actionTypeCombo$ ," SELECT" ,MODE_ADD%) 
grid. SetActi onType(MODE_ADD%) 


pia til Wig es Ge Lf nade ryoe wi dge Gh cet toe ly eed ge Sec wan TD tte 0 
DDgui_com Olsel-f model ie ccombos. Self nodecises. se . WINDOW_WIDTH%- 24 ,0) 
DDgui_set(self.nodeListcCombo$ ,""SELECT" ,0) 

grid. SetNodeInfo(self.celliInfo[0]) 


DDgui_button(self.loadData$,self. loadData$, (sel f.WINDOW_WIDTH%/ 2) -4, 0) ; 


. DD SE ee ee eae oe Oe 
DDgui_button(self.rotateAnticlockwise$ ,self.rotateAntiClockwise$, (self .wINDOW_WIDTH%/2) - 


DDgui_button (self .rotateclockwise$,self. rotateclockwise$ , (sel f. WINDOW_WIDTH%/ 2) -4, 0) 

DDgui_button(self.horizontalFlip$,self.hori zontal Flip$ , (sel f.wINDOW_WIDTH %/2) 

DDgui_button(self.verticalFlip$,self.vertical Flip$, (self .wINDOW_WIDTH% 
DDgui_button(self.scrollUp$,self.scrol 1lUp$, (sel f.WINDOW_WIDTH%/ 2) -4, 0) ; 


4,0); 
{23 M4 ,0) 


DDgui _button(self.scrollDown$,self.scrol IDown$, (self .WINDOW_WIDTH%/2) - 


DDgui_button(self.scrollLeft$,self.scrol lLeft$, (self .WINDOW_WIDTH%/2)-4,0); 


DDgui _button(self.scrol1Right$, self. scrollRight$, (self .WINDOW_WIDTH%/2) - 


DDgui_button (self .clearData$, self.clearData$,se1f.WINDOW_WIDTH% -6, 0) 


DDgui_button (self .undo$, self. undo$,self.wINDOW_WIDTH%- 6, 0) 
RETURN TRUE 
ENDFUNCT ION 


FUNCTION Process%:grid AS TGrid 
LOCAL index% 


IF DDgui_get (self .actionTypeCombo$," CLICKED") 
index%=DDgui_get(self.actionTypecombo$ ,""SELECT") 
IF index%>=0 
grid. SetActi onType(index%) 
ELSE 
DDgui_msg("No action type to select" ,FALSE) 
ENDIF 
ELSEIF DDgui_get(self.nodeListcombo$ ,""CLICKED") 
index%=DDgui_get(self.nodeListCombo$ ,""SELECT") 
IF index%>=0 
grid. SetNodeInfo(self. cell Info[index%] ) 
ELSE 
DDgui_msg("No group type to select", FALSE) 
ENDIF 
ELSEIF DDgui_get(self.saveData$ ," CLICKED") 
self. SaveData(grid) 
ELSEIF DDgui_get(self. loadData$ ,"CLICKED") 
self. LoadData(grid) 
ELSEIF Dig uae Cae ori zonta IIs) Cece) 
grid. Flip(TRUE) : : 
ELSEIF DDgui_get(self.verticalFlip$, "CLICKED" ) 
grid. Flip(CFALSE) 
ELSEIF Dba ui OC eCse linac rol Ups, CLLeD) 
grid.Scrol1(0,-1 
ELSEIF DDgui_get(self.scrol1Down$ , "CLICKED" ) 
grid.Scrol1(0,1 
ELSEIF DDgui_get(se f. ScrollLeft$ , "CLICKED" ) 
grid. Scrol1(-1, 0) 
ELSEIF pout ge tise taser Wants ETC) 
grid.Scrol1(1,0) 
ELSEIF DDgui_get(self. rotateAntiClockwise$, "CLICKED" ) 
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grid. Rotate(-45.0) 
ELSEIF DDgui_get(self. rotateclockwise$ ,"CLICKED") 
LD Seas Oy 
ELSEIF DDgui_get(self.clearData$, "CLICKED") 
IF DDgui_msg("Are you want to clear any and all data ?", TRUE) 
grid. ClearData() 
DDgui_set(self. authorNameText$, "TEXT", "") 
DDgui_set(self.objectNameText$, "TEXT", "") 
ENDIF 
ELSEIF DDgui_get(self.undo$," CLICKED") 
grid. DoUndo() 
ENDIF 
ENDFUNCT ION 


//\ Save vector data 

FUNCTION SaveData%:grid AS TGrid 
LOCAL fi leName$ ,temp$ 

LOCAL loop% 

LOCAL cInfo AS tCellinfo 


// Check to see if there is anything to save 

IF grid. AnythingToSave ()=FALSE 
DDgui_msg("There is nothing to save" ,FALSE) 
RETURN FALSE 

ENDIF 


fi1eName$=DDgui_FileDialog$(FALSE ,"*.VEC") 
IF fi leName$=""" THEN RETURN FALSE 


IF DOESFILEEXIST(fi leName$), ; ae 
IF DDgui_msg("The file already exists. Do you want to overwrite it ?",TRUE,"* 
File Present *")=FALSE THEN RETURN FALSE 


KILLFILE fileName$ 
IF DOESFILEEXIST( fi leName$) 
DDgui_msg("Unable to overwrite the file. Must be in use by a 
program" ,FALSE,"* File Error *") 
RETURN FALSE 
ENDIF 
ENDIF 


INIOPEN fi leName$ 

INIPUT SECTION_NAME $,KEY_AUTHOR$, DDgui_get$ (self. authorNameText$," TEXT") 
INIPUT SECTION_NAME § KEY OBJECTNAMES,,Dbgui._ get $ (self .obj ectNameText$,, TEXT") 
INIPUT SECTION_NAME $,KEY_HANDLE$, grid. ReturnHand] exyAsString$ QO 

INIPUT SECTION_NAME $,KEY_INUSE$ ,grid.ReturnGroups InUse$() 


FOR 100p%=NODE_NODE1% TO NODE_NODE10% 
temp$=grid.ReturnNodesAsSt ring$ (1 o0p%-NODE_NODE1%) 
IF temp$<"" THEN INIPUT SECTION_NAME$ , KEY_DATA$+ (loop%-NODE_NODE1%) , temp $ 
NEXT 


// Find out whether there are any cells for the user-defined cell group 
INIPUT SECTION_USER$,KEY_INUSE$ ,grid .ReturnUserGroupInUse$() 
FOR 1loop%=0 TO MAX_USERGROUPS%- 1 

temp$=grid.ReturnUsercel lsAsString$( loop) 

IF temp$<"" THEN INIPUT SECTION_USER$ ,KEY_DATA$+1loop% , temp$ 
NEXT 


INIOPEN "" 
RETURN TRUE 
ENDFUNCT ION 


//\ Load vector data 

FUNCTION LoadData%: grid AS TGrid 
LOCAL fi leName$ ,text$, list$[] 
LOCAL index%,error$ 


fileName $=DDgui_FileDialog$(TRUE, "*. VEC") 
IF fi leName$=""" THEN RETURN FALSE 


IF DOESFILEEXIST( fi leName$ )=FALSE 
DDgui_msg("The given file doesn't exist",FALSE,"* File Not Present *") 
RETURN FALSE 

ENDIF 


INIOPEN fi leName$ 
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DDgui_set(self. authorNameText$, “TEXT”, INIGET$ (SECTION_NAME$ , KEY_AUTHORS,"™) ) 
DDgui_set(self.objectNameText$, "TEXT", INIGET$ (SECTION_NAME$ , KEY_OBJECTNAME$ ,"""")) 
grid. SetHandleFromT ext (INIGET$(SECTION_NAME $, KEY_HANDLE$ ,"""")) 


TRY 
text$=INIGET$(SECTION_NAME $ ,KEY_INUSE$ ,"""") 
IF text$="" THEN THROW "No group in use list" 


// Clear everythin 
grid: clearbatac) : 


DIM list$[0] 
IF SPLITSTR(text$,list$[],",")>0 
FOR loop%=0 TO BOUNDS(list$[] ,0)-1 
ind eee NEESER iets lcoue 
text$=INIGET $(SECTION_NAME$, KEY_DATA$+index%, """) 
IF text$<"" THEN 
SE ee ee CU re ae Ler ernie ae Linde we Une My co. OUbs Seine Ge nine Lieder: leet 
olour% 
NEXT 
ELSE 
THROW "Unable to split list of groups" 
ENDIF 


// Get user cells 
text$=INIGET $(SECTION_USER$,KEY_INUSE$ ,"") 
DIM list$[0] 
IF SPLITSTR(text$,list$[],",")>0 
FOR loop%=0 TO BOUNDS(list$[] ,0)-1 
Und TNT EG ER CL ot Sti coee ; 
text$=INIGET $(SECTION_USER$, KEY_DATA$+index%, """) 
IF text$<"" THEN 
grid. SetUserDataFromText (i ndex%, text$, self. cell Info[ index%+NODE_USER%] .currentcolour%,self.cel lInfo[ind 
e@x%+NODE_USER%] . ]astColour%) 
NEXT 
ENDIF 


INIOPEN "" 

CATCH error$ 
INIOPEN "" 
DDgui_msg(error$, FALSE) 
RETURN FALSE 

FINALLY 


RETURN TRUE 
ENDFUNCT ION 
ENDTY PE 


// Main program 

LOCAL screenwidth%, screenHeight% 
LOCAL _gui AS TGui 

LOCAL _grid AS TGrid 


Changewi ndowText("" ('""+VERSION$+") ") 
GETSCREENSIZE screenwidth%,screenHei ght% 


on: 1 _gui. Initial ise(screenwidth%,screenHeight%)=FALSE THEN endProgram("TGui failed to 
initialise" 

res _grid.Initialise(screenwidth%, screenHeight%)=FALSE THEN endProgram("TGrid failed to 
initialise") 


IF _gui.Createwindow()=FALSE THEN endProgram("Unable to create window") 
IF _gui.Addoptions(_grid)=FALSE THEN endProgram("Unable to add menu options") 


WHILE TRUE 
DDgui_show (FALSE) 
_gui. Process (_grid) 
_grid.DisplayGridQ 
_grid.Process() 
SHOWS CRE EN 
HIBERNATE 

WEND 

END 
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//\ An error occured during initialisation, so end the program 

FUNCTION endProgram%:errorMessage$ 
DDgui_msg(errorMessage$, FALSE ,""* 
END 

ENDFUNCT ION 


Error *") 


FUNCTION sortRoutine:a AS tNode,b AS tNode 
IF b.x%>a.x% THEN RETURN -1 
IF b.x%<a.x% THEN RETURN 1 


IF b.y%>a.y% THEN RETURN -1 


IF b. y%<a.y% THEN RETURN 1 


RETURN 0 


ENDFUNCT ION 


INLINE 
1 ender 


WIN32 


#undef main 


#endi f 


#ifdef wIN32 


typedef 


typedef 


#define 
#define 
#define 
#define 
#define 
#define 
#define 
#define 


#define 
#define 
#define 
#define 
#define 
#define 
#define 
#define 
#define 
#define 
#define 
#define 
#define 
#define 
#define 


#define 
#define 
#define 
#define 
#define 
#define 
#define 
#define 
#define 
#define 
#define 


/ Windows stuff 
struct __RECT { 
long left; 

long top; 

long right; 

long bottom; 

} __RECT; 


int HDC; 


SM_CXSCREEN 0 
SM_CYSCREEN 1 
HWND_BOTTOM 
HWND_NOTOPMOST 
HWND_TOP 


C CHWND 


1 
Coun) (29) 
( CHWND)O) 


HWND_TOPMOST ¢ CHWND) (-1)) 


HWND_DESKTOP 
HWND_MESSAGE 


SWP_DRAWF RAME 
SWP_FRAME CHANGED 
SWP_HIDEWINDOW 
SWP_NOACT IVATE 
SWP_NOCOPYBITS 
SWP_NOMOVE 
SWP_NOSIZE 
SWP_NORED RAW 
SWP_NOZORDER 
SWP_SHOW INDOW 
SWP_NOOWNERZORDER 
SWP_NOREPOSITION 
SWP_NOS ENDCHANGING 
SWP_DEF ERERASE 
SWP_ASYNCWINDOWPOS 


SW_HIDE 
SW_SHOWNORMAL 
SW_SHOWNOACTIVATE 
Sw_SHOW 
SW_MINIMIZE 
SwW_SHOWNA 
SW_SHOWMAXIMIZED 
SW_MAXIMIZE 
SW_RESTORE 
HORZRES 8 
VERTRES 10 


HWND )O 
CCHWND) (-3)) 


0x0020 

0x0020 
0x0080 
0x0010 
0x0100 
0x0002 
0x0001 

0x0008 

0x0004 


0x0200 
SWP_NOOWNERZORDER 
0x0400 

0x2000 


0x0040 


0x4000 


COOUAREO 
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) Fe eee ene une eel Neon oe ele ened een camneney * char *,char *,char 
* int),int); 


extern 
extern 
extern 
extern 
extern 


"Cc" __stdcall 

" __stdcal] 
" __stdcall 
__stdcal 1] 
" __stdcall 


int GetSystemMetricsCint); 


int GetwindowRect (HWND hwnd, struct _RECT *IpRect); 
int GetClientRect (HWND hwnd, struct __RECT *IpRect); 
int SetwindowTextACHWND hwnd,const char *IpString); 


HWND GetDesktopwi ndow(void) ; 
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extern C __stdca T int SetwindowPos(HWND hwnd , HWND hwndinsertAtter, int X,1nt Y,int cx,int 
cy, int uFlags); 
extern "C" __stdcal] int EnumDisplaySettin ator ay char*, unsigned int, void*); 
extern "C" __stdcall HWND GetForegroundwindow (void) ; 
extern "Cc" __stdcall int GetLastError(void) ; 
extern "C" __stdcal] int GetSystemmMetrics(int nIndex); 
extern "C" __stdcall HDC GetDCCHWND) ; 
extern "C" __stdcall int GetDeviceCaps (HDC, int) ; 
#else 
#ifndef IPHONE 
/ This is for non-windows platforms 
extern "C" __stdcall void SDL_WM_SetCaption(const char *,const char *); 
#endi f 
#endi f 


extern "C" int rename(const char *_old, const char *_new); 
namespace __GLBASIC__{ 
ENDINLINE 


FUNCTION ChangewindowText: version$ 
INLINE : 
DGStr title; 


tit le=DGStr(__g_AppName) ; 
#ifdef GLB_DEBUG 

title+=DGsStr(" (Debug Mode)"); 
#endi f 


title+=pGstr(" - ")+DGStr(version_Str) ; 


#ifdef IPHONE 
/ Do nothing on the iPhone/iPod 
#elif _WIN32_WCE 
#elif GP2x 
#elif GP2XwWIZ 
#elif XBOXLINUX 
#elif PANDORA 
#elif wIN32 
7 : :SetwindowTextA(C (HWND) GLBASIC_HWND() ,title.c_strQ); 
#else 
: :SDL_WM_SetCaption(t_Str.c_strQ, title.c_str(Q)); 
#endi f 
ENDINLINE 
ENDFUNCT ION 


FUNCTION returnProgramName $: 
INLINE 

return DGStr(C_g_AppName) ; 
ENDINLINE 
ENDFUNCT ION 


FUNCTION getDesktopSize%:BYREF deskwidth%,BYREF deskHeight% 
INLINE 
? IFDEF WIN32 
deskwidth=GetSystemmMet rics (SM_CXSCREEN) ; 
deskHeight=GetSystemmMetrics(SM_CYSCREEN) ; 


deskwidth=0; 
deskHeight=0; 
? ENDIF 
ENDINLINE 
ENDFUNCT ION 


? ELSE 


FUNCTION Centrewindow%: 
INLINE 
#ifdef wIn32 
struct __RECT window; 
une taned int deskwidth ,deskHeight ,wi ndowwidth ,windowHeight; 
int Flags; 
HWND hwnd; 
hwnd=(HWND) GLBASIC_HWND() ; 
deskwidth=GetSystemmet rics (SM_CXSCREEN) ; 
des kHeight=GetSystemmMetrics(SM_CYSCREEN) ; 


if C::GetwindowRect (hwnd ,&window) ) 
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window dth=window. right -window. left; 
windowHe ight=wi ndow.bottom-wi ndow. top; 


flags=SwP_SHOWINDOW; 
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if (windowwi dth>deskwidth | | windowHei ght>deskHei ght) 


window dth=des kwidth; 
windowHe ight=deskHeight; 


else 


flags |=SwP_NOSIZE ; 


: :SetwindowPos (hwnd , HWND_NOTOPMOST, (deskwidth -windowwi dth)>>1, (des kHei ght - 


windowHeight)>>1, windowwidth, windowHeight, flags); 


else 


{ 
DEBUG("GetwWindowRect (window) failed"); 


#else 
#endi f 
ENDINLINE 
ENDFUNCT ION 


FUNCTION renameFi 1e%:o01d$, new$ 
INLINE 


Crename(old_Str.c_str(),new_Str.c_str())==0 ? TRUE : 


ENDINLINE 
ENDFUNCT ION 


FUNCTION RGBR%: Co lour% 
INLINE 
return (DGNat) colour & 255; 
ENDINLINE 
ENDFUNCT ION 


FUNCTION RGBG%: co lour% 
INLINE 
return (DGNat) CCcolour>>8) & 255); 
ENDINLINE 
ENDFUNCT ION 


FUNCTION RGBB%: co lour% 
INLINE 
return (DGNat) CCcolour>>16) & 255); 
ENDINLINE 
ENDFUNCT ION 


STARTDATA parts: 
DATA "Main Gun",1,255 
DATA "Left Gun" ,3,255 
DATA "Right Gun", 3, 25 
DATA "Left Rear Gun" 
DATA Right Rear Gun", 3 
DATA "Left Light", 3,255 
DATA "Right Light", 3.25 
DATA "Missile Tube” 4, 2 
DATA "Engine",1,255,0,25 
DATA "General", -1,0,255, 25 

ENDDATA 
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This allows you to create vector-based graphics, and looks like : 


Vector Editor 


Author Name : 
Object Name 


Action Type 


Add ¥ 
Node Type : 
Node Group #6 ¥ 
Load Data Save Data 

Rotate Left Rotate Right 
Horizontal Flip Vertical Flip 

Scroll Up Scroll Down 
Scroll Left Scroll Right 

Clear Data 
Undo 


rs 


To display the results (once saved), you could use the following routine (which ignores special nodes) : 


The Line drawing routine was originally written by Gernot Frisch 


[] ~==~~ ~~ == === =a aa 
// Project: TestVector 
// Start: Friday, July 23, 2010 
// IDE Version: 8.036 
TYPE tcoord 
x 


y 
ENDTY PE 


TYPE tGroup 
pos[] AS tCoord 
ENDTY PE 


TYPE tObject 
author$ 
objectName $ 
hand1ex%;handleY% 
groups[] AS tGroup 
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ENDTY PE 


TYPE Tvector . 
vectorObject AS tObject 


SECTION_OBJECT$ = "OBJECT" 
KEY_AUTHOR $ = " AUTHOR" 
KEY_NAME $ = "NAME" 
KEY_HANDLE $ - "HANDLE" 
KEY_INUSE$ - "TNUSE" 
KEY_DATA$ = "DATA" 


FUNCTION TVector_Initial ise%: 
DIM self.vectorObject.groups[0] 
ENDFUNCT ION 


FUNCTION TVector_Load%:fi1eName$ 
LOCAL vector AS tCoord 

LOCAL group AS tGroup 

LOCAL temp$, loop%,error$ 

LOCAL array$[], dataArray$[] 


IF DOESFILEEXIST(fi leName$) 
TRY ; 
INIOPEN fi leName$ 


self.vectorObject .author $=INIGET$ (self .SECTION_OBJECT$ ,self .KEY_AUTHOR$,"") 
self. vectorObject .objectName$=INIGET$(self.SECTION_OBJECTS, self .KEY_NAME$ ,""") 


DIM array$ [0] 
DIM self.vectorObject.groups[0] 


// Get the handle positions - for information only 


IF 
SPLITSTR CINIGET$(self. SECTION_OBJECT$, self. KEY_HANDLE$ ,"0,0") ,array$[],",")=2 
self.vectorObject .hand]lex%=INTEGER(array$[0]) 
self. vectorObject .handleY%=INTEGER(array$[1]) 
ELSE 
// Ignore anything else and carry on 
ENDIF 


// Now we get a list of data sections that are in use 
om aeray$ (0 


Spl EPSTRGNTCETS (Seif. SECTION. ORDEGTS. self.KEY_INUSE$,""), CE a le 
FOREACH temp$ IN arr 
DIM FN EL 
DIM group. pos[0] 


IF 
SPLITSTRCINIGET$(se1f. SECTION_OBJECT$, self. KEY_DATA$+temp$, "") ,dataArray$[],", 
FOR oop%=0 TO SOURCES aAR VEEL: 0)-2 ae 2 
vector.x= =INTEGERCdataarray$[1oop¥])4 .0 
vector. y=INTEGER(dataArray$[1o0op%+1] )*1.0 
DIMPUSH group.pos[] ,vector 
NEXT 


// Push group into array 
DIMPUSH self.vectorObject.groups[],group 


ELSE 
THROW "No data in key : "+self.KEY_DATA$+temp$ 
ENDIF 

NEXT 
ELSE 

THROW "No data to be found!" 
ENDIF 
INIOPEN "" 


RETURN TRUE 

CATCH error$ 
DEBUG error$+"\n" 
STDERR error $+"\n" 
INIOPEN "" 
RETURN FALSE 

FINALLY 

ELSE 
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RETURN FALSE 
ENDIF 
ENDFUNCT ION 


FUNCTION TVector_Display%:x,y,angle, scale,colour%,al pha, usePo lyVector%=FALSE, useSpri te%=-1 
LOCAL group AS ¥eroup 

LOCAL coords%,size%, loop% 

LOCAL n%,cv, Sv 


cv=COS(ang le) 
SV=SIN(ang le) 


ALPHAMODE alpha 
FOREACH group IN self.vectorObject.groups[] 
S1Z@%=BOUNDS (group. ost 0) 
FOR loop%=0 TO size%-1 
n%=se lf. Tvector_GetNextIndex(loop%,size%) 
IF usePolyVector%=TRUE 
self. Line(x+((cv* group .pos [loop%] .x*scale)- 
(sv*group. pos[1oop%].y*scale)), y+((cv* group .pos [1loop%] .y*scale)+(sv*group.pos[loop%] .x*scale)), _ 
x+((cv* group.pos [n%] .x*scale)- 
Csueghaupepee nial ay *SCai9 cy LOCarain pos irl. y*sea le) <( ev group. pac ine les eecale) ceG lou 
ELSE 


DRAWL INE es ecas Boe Pen 
(sv*group. pos[1oo0p%].y*scale)), y+((cv* group .pos [loop%] .y*scale)+(sv*group.pos[loop%] .x*scale)), _ 
x+ (Ccv* group.pos [n%].x*scale)- 
(sv*group.pos[n%] .y*scale)),y+C((cv*group .pos[n%].y*scale)+(sv*group. pos[n%] .x*scale)),colour% 
ENDIF 


NEXT 
NEXT 
ENDFUNCT ION 


FUNCTION TVector_GetNext Index%: current%, size% 
INC current% 
IF current%>=size% THEN current%=0 
RETURN current 

ENDFUNCT ION 


FUNCTION Line: x1, yl, x2, y2, col 
LOCAL c,s,p, w, dx, dy, ddx, ddy, ux, uy, lg 


//\ine width 
w= 16 


// direction of line 
ddx = x2-x1 
ddy 


y2-yl 
lg = SQR(ddx*ddx+ddy*ddy) 
IF 1g<0.5 THEN RETURN 


/ short caps 
fe *2 P 


// dir vector 
dx=ddx*w/1g 
dy=ddy*w/1g 
// up vector 
ux=dy 

uy=-dx 


// capl 
STARTPOLY 0 


POLYVECTOR x1+ux-dx, yl+uy-dy, 0.5, 0.5,col 
POLYVECTOR x1-ux-dx, yl-uy-dy, 0.5,63.5,col 
POLYVECTOR x1-ux, yl-uy, 31.5,63.5,col 
POLYVECTOR x1+ux, yl+uy, 31.5, 0.5,col 
ENDPOLY 
// center 


STARTPOLY 0 
POLYVECTOR x1+ux, yltuy, 31.5, 0.5,col 
POLYVECTOR x1l-ux, yl-uy, 31.5, 
POLYVECTOR x2-ux, y2-uy, 31.5, 63.5,col 
POLYVECTOR x2+ux, y2tuy, 31.5, 

ENDPOLY 


// cap2 
STARTPOLY 0 


119 


Programmers Guide to using DDGui 


POLYVECTOR x2+ux, yd+uy, 31.5, 0.5,co 
POLYVECTOR X2-ux, y2-uy, 31.5, 63.5,col 


POLYVECTOR x2-ux+dx, y2-uy+dy, 63.5, 63.5,col 
POLYVECTOR x2+ux+dx, y2+uy+dy, 63.5, 0.5,col 
ENDPOLY 
ENDFUNCT ION 
ENDTY PE 


Anexample would be : 


—— 
[Pie TestVector 
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Part5 


Miscellaneous Routines 
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These are various routines that you may find useful : 


Value Wrapping and limiting range 


FUNCTION wrapF: Va lue,minva lue ,maxValue 
LOCAL diff 


IF Value<minvalue OR Value>maxValue 
dif f=maxva ]lue-minvalue 
IF Value<minvalue 
INC Value ,di ff 
ELSE 
IF Value>maxvValue 
DEC Value,diff 
ENDIF 
ENDIF 
ENDIF 


RETURN Value 
ENDFUNCT ION 


FUNCTION wrapI: value%, mi nvalue% ,maxVal ue% 
LOCAL diff% 


IF value%<minvalue% OR value%>maxva 1lue% 
dif f%=maxvalue%-minval ue% 
IF value%<minva 1lue% 
INC value%,dif f% 
ELSE 
IF value%>maxVal ue% 
DEC value%, di ff% 
ENDIF 
ENDIF 
ENDIF 


RETURN value% 
ENDFUNCT ION 


FUNCTION constrainF:value,minv, maxv 
INLINE 
value=(value<=minv ? minv : \ 
value>=maxV ? maxV : value); 
ENDINLINE 
RETURN value 
ENDFUNCT ION 


Various routines for interfacing with the GLBasic window application. It also includes routines for 
splitting a RGB value to individual components : 


INLINE 


1 ender WIN32 
#undef main 
#endi f 


#ifdef wIN32 

// Windows stuff 
typedef struct __RECT { 

long left; 

long top; 

long right; 

long bottom; 

} __RECT; 


#define SM_CXSCREEN 0 
#define SM_CYSCREEN 1 


#define HWND_BOTTOM CCHWND) 1) 
#define HWND_NOTOPMOST  ((CHWND) (-2)) 
#define HwND_TOP CCHWND)0) 


#define HwWND_TOPMOST CCHWND) (-1)) 
#define HWND_DESKTOP CHWND )0 
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#deTi ne HWND_MESSAGE CCHWND) (- 3)) 


#define 
#define 
#define 
#define 
#define 
#define 
#define 
#define 
#define 
#define 
#define 
#define 
#define 
#define 
#define 


SWP_DRAWF RAME 
SWP_FRAME CHANGED 
SWP_HIDEWINDOW 
SWP_NOACT IVATE 
SWP_NOCOPYBITS 
SWP_NOMOVE 
SWP_NOSIZE 
SWP_NORED RAW 
SWP_NOZORDER 
SWP_SHOWW INDOW 
SWP_NOOWNERZORDER 
SWP_NOREPOSITION 
SWP_NOS ENDCHANGI NG 
SWP_DEF ERERASE 
SWP_ASYNCWINDOWPOS 


extern 
extern 
extern 
extern 
extern 
cy, int uFlags); 
extern 
extern 
extern 


#else 


__stdcall 
_stdcall 
_stdcall 
__stdcall 
__stdcall 


__stdcall 
__stdcall 
__stdcall 


#i fndef IPHONE 
// This is for non-windows platforms 
extern "Cc" 


#endif 
#endi f 


extern "C" int rename(const char *_ 
—__GLBASIC__ 


namespace 
ENDINLINE 


FUNCTION ChangewWindowText: t$ 


INLINE 
#ifdef IPHONE 


{ 


0x0020 
0x0020 
0x0080 
0x0010 
0x0100 
0x000 2 
0x0001 
0x0008 
0x0004 
0x0040 
0x0200 
SWP_NOOWNERZORDER 
0x0400 
0x2000 
0x4000 


int GetSystemMetrics (int) ; 

int GetwindowRect(HWND hwnd,struct __RECT *1pRect); 

int SetwindowTextA (HWND hwnd, const char *]pString); 

HWND GetDesktopwindow(void) ; 

int SetwindowPos (HWND hwnd,HWND hwndInsertaAfter, int X,int Y,int cx,int 


int EnumDisplaySettingsACconst char*, 
HWND GetForegroundwi ndow(void) ; 
int GetLastError (void); 


unsigned int, void*); 


__stdcall void SDL_WM_SetCaption(const char *,const char *); 


old, const char *_new); 


//_Do nothing on the iPhone/iPod 


#elif WIN32 


:SetwindowTextA (CHWND) GLBASIC_HWND(), t_Str.c_str()); 


#else 


::SDL_WM_SetCaption(t_Str.c_str(Q), t_Str.c_strQ); 


#endi f 
ENDINLINE 
ENDFUNCT ION 


FUNCTION Centrewi ndow: deskwidth% ,deskHei ght % 


DEBUG "desktop : 


INLINE 

#ifdef wIN32 
struct 
HWND hwnd; 


__RECT window; 


"ideskwi dth%" 


+deskHei ght%+"\n" 


hwnd=(HWND) GLBASIC_HWND(); 
// DEBUGC(Cint) GLBASIC_HWND QO): 
if (::GetwindowRect(hwnd, &wi ndow)) 


i 


else 
{ 


a fentbeclae equ LT aTeRD NS TOENOR TS Cdeskwidth -(window. right-window.left)) / 2, 
(deskHei ght- (iaadon bottom-win 


ow.top)) / 2, 0, 0, SWP_NOSIZE); 


DEBUGC("GetWindowRect failed"); 


#else 
#endi f 


ENDINLINE 
ENDFUNCT ION 


FUNCTION getCurrentDesktopSize: BYREF width%,BYREF height% 


INLINE 
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#itdet WIN32 
struct __RECT desk; 
/ (::GetwindowRect(: :GetDesktopwindow() , &desk)) 


width=desk.right-desk. left; 
hei ght=desk.bottom-desk. top; 
return TRUE; 


else 
return FALSE; 


#else 
// Cant currently centre on Linux and Mac 
wi dth=-1; 
height=-1; 
return TRUE; 
#endif 
ENDINLINE 
ENDFUNCT ION 


FUNCTION renameFi le%:dir$, old$, new$ 
LOCAL ok% 
LOCAL tempDir$ 


ok%=-1 


INLINE 
tempDi r_Str=GETCURRENTDIR Str () ; 
if (SETCURRENTDIR (dir_Str.c_str(Q )==TRUE) 


ok=rename(old_Str.c_str(), new_Str.c_strQ); 


} 
SETCURRENTDIR(tempDir_Str) ; 
return (ok==0 ? TRUE : FALSE); 
ENDINLINE 
ENDFUNCT ION 


FUNCTION RGBR%: co lour% 
INLINE 
return (DGNat) colour & 255; 
ENDINLINE 
ENDFUNCT ION 


FUNCTION RGBG%: co lour% 
INLINE 
return (DGNat) C(colour>>8) & 255); 
ENDINLINE 
ENDFUNCT ION 


FUNCTION RGBB%: co lour% 
INLINE 
return (DGNat) C(colour>>16) & 255); 
ENDINLINE 
ENDFUNCT ION 


FUNCTION grabScreen%: 
LOCAL temp%, sw% ,SH% 


temp%=GENSPRITE() 
IF temp%<>-1 

GETSCREENSIZE sW%,SH% 

GRABSPRITE temp%,0,0,sW%-1, SH%-1 
ENDIF 


RETURN temp% 
ENDFUNCT ION 


Swap variable values : 


FUNCTION SWapl:BYREF a%,BYREF D% 
LOCAL c% 


c%=a% 
a%=b% 
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b%=C% 
ENDFUNCTION 


FUNCTION SwapF:BYREF a,BYREF b 
LOCAL c 


om a) 
ott il 


a 
b 
Cc 
ENDFUNCT ION 


FUNCTION swapS:BYREF a$,BYREF b$ 
LOCAL c$ 


c$=a$ 

a$=b$ 

b$=c$ 
ENDFUNCT ION 


Hexadecimal routine : 


//\ Convert_a decimal number to a hexidecimal number 

//\param value% - Number of be converted 

//\param length% - Number of characters that the result will be padded to 
//\return The hexidecimal value as a string 

FUNCTION decToHex$:value%, length%=4 

LOCAL digit% 

LOCAL temp% 

LOCAL result$ 


IF length%<=0 
RETURN "0" 
ENDIF 


result$="" 
FOR digit%=length% To 1 STEP -1 
temp%=MOD(value%, 16) 
IF temp%<10 
resul t$=CHR$ (temp%+48)+resul t$ 


resul t$=CHR$ ((temp%-10) +65)+result$ 


ELSE 
ENDIF 


value%=value%/16 
NEXT 


RETURN result$ 
ENDFUNCT ION 


//\ Convert a hexidecimal number of an integer 
//\param hex$ - Hexidecimal string 

//\return The decimal value of the passed string 
FUNCTION hexToDec%: hex $ 

LOCAL i% 

LOCAL 4% 
LOCAL loop% 


j%=0 
FOR loop%=0 TO LEN(hex$)-1 
Lemar Tes coe ee OSD ea rae 
IF 9<i% 
DEC 1%,7 
ENDIF 


P=jxe16 | 
J%=bOR( 5%, bAND (7 ,15)) 
NEXT 


RETURN j 
ENDFUNCTION 


Various maths routines : 


125 


Programmers Guide to using DDGui 


FUNCTION PI: 
RETURN 3.14159265 358979 


ENDFUNCT ION 


FUNCTION PHI: 
RETURN 1.6180339887 
ENDFUNCT ION 


FUNCTION PHI2: 
RETURN 0.6180339 
ENDFUNCT ION 


FUNCTION factorial%:value% 
LOCAL total% 


IF value%<=1 

total %=1 
ELSE 

total %=val ue% 
ENDIF 


WHILE value%>1 
total %=total %* (va lue%-1) 
DEC value%,1 

WEND 


RETURN total% 
ENDFUNCT ION 


FUNCTION fcmp%: valuel, value2, epsilon 
IF ABS(valuel-value2)<=ABS (valuel)*epsilon 
RETURN TRUE 
ELSE 
RETURN FALSE 
ENDIF 
ENDFUNCT ION 
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